le 1" hebdomadaire des programmes informatiaues 



FLIPPER PONG sur COMMODORE 64 | EDITO 



Votci un Ping-Pong contenant des obstacles et i 
non -5 Pour deux joueurs munis de joysticks... 



i Bumper central, original. 



Michel GIRBOUX 



C flWC TEB Ei 

i LIOC3 4; et ieie iMi'i:. 

i LtME 213 .:;pi.'>v» . 4 f 

28* <Cl*/HOME> . * 

--;-■■ - .- :- 



IM'iT RUCTIONS PCIMT 



21 "En 

22 RErt 

23 REW 

;« be« 

75 BE* 

26 BE" 

27 OEW 

28 OEM 

29 B£» 
38 BE" 
3i »tn 

33 *V 

36 etn 

3' 9E« 

38 SEH 

IS RDI 

40 --:- 



i CHWt JOUEL* COHTROtE UME PfiLETTE r=wi_ETTE 0SXJITE«JGV4T1CJ< PORT 1. i 

PW.ETTE OKUCHE-JOVSTICK PC*T 2. I 

' VOUS nflROUEZ 2 POINTS En irjyCHflMI L £ DUMPER, i 

l« MfVOJE 5 POINTS il VOUS LRIS3ER SCPTIR LK BftLLE I 

: :&c£ BE DOHKP DE l'EFFET R LP. SflLLE. « 



va«IHt.TE'5 POSSIBLES 

1/POUR MODIFIES) Lfl VITESSE DE Lft B*LLE 

CK'NMR LE CONTEM.I BE Lfl WMOIPE 378, ft Lfc LlGNE 1238 
-POi_«> UN MCUVEHENT PLUS LEMT PWE 378. IS OU 11 OU 12 ... 
-POOR ON MOUVEHENT PLUS RflPIDE POKE 979.8 OU 7... <KIN,< 
2' POUR OBTEWIR UN P1NG-ROHC CLRSSIOUE 
-SUPPRIMCe LES LIQNES 1998 « 1128 

-LIGNES 1270 ET 1470 REHPLRCER POKE V'21.62 PHP POKE V. 
-LIGHE 13*0 RETTPlPCEP POKEV*21.£3 PfP POKE V*21,7 
CHflNGEP lR DISPOSITION flu JEU REECRIRE LES LIOMES lB9e f 



I WEtl * 



*S PQME32.48 w*E56.«9 CLR 

49 Pl^E«?34.!>£E>"M3^4}RHDi54 P0KE1.PEEKUJRND211 

54 PEW COPIE 3€ L'flLPHwKTtCflRflCTERES 8 fi 26> 

68 F0Br«8TOZ7«9-i POK£122ea*I,PEEK^3248*I> NEXT 

^8 SEH DEFIn.CMPRCTERES OWHIQUES 

98 PM!-27»8T03e«8-l RERD*" P»:E12288*I .P. riEKT 

98 WTO 8. 8, 8. 253rZT5. 253 293. 255. 255. 235.2^5. 255. 25?. 3, 8.0 

88 DOTH 50.60, S8.68.68. 68,68. 69 

05 F0RI-38*9TO31«8-l P0»E12Za8*I .PEEK'5324e-I -5!«9) NEXT 

10 REM COPIE DES "LITRES C«RRCT£»E5(32 ft 64> 

28 F0BI«3J«9TC«*«9-] POKE122Be-I.PEEK'5324B*I- NET 

30 POKE;. PEE" |.>0B4 P0KE56334.PEEK'563^;0R1 
140 P0KE53272. •pEEK'532?21RND248j*12 
208 V-53348 

228 P0KEV.32.ll Pt>Ev.y3.a P0KEV*34!ll P0KEV»35. 13 

238 P0KE53265.PEEK'53265^C6* 

235 RE" LECTURE OU LBNO-jftOE nPCHINE 

248 REM Lft"G.'»»CH.PPO0R.PPIMCIPflL 

238 F0PI-8T0291 PEROT POKE49152-I .f NEXT 

260 DBTP 162.3.32.0.193.162,1.32,0,193.32.97,193.149.1.288 

278 DWTB 1?4, 0.298. 173,287.3. ?4. 176.49. 173. 16.289.74,176.18.224 

288 DBTft 253.248.4.232.76-102,192,169.5,141.16,289,162,9.76.102 



Vous avez de]a repondu massive- 
ment au questionnaire, c'est agrea- 
ble de voir que - comme dhabitude 
•nous pouvons compter sur vous. 
Tiens, il y a longtemps que |e ne 
vous 1'ai pas dit :"Vous eles lormi- 
dables 1 ". Que ceux qui n'ont pas 
encore repondu le tasse pendant 
les vacances d'Aout. le question- 
naire sera dans le numero quadru- 
ple. Les autres ne repondez pas 
deux fois. !e questionnaire est traite 
par ordmateur et les doubles seront 
elimines: economisez des timbres 
inutiles! 



En parlant de timbres ne nous en 
envoyez plus pou- la reexpedition 
de vos programmes nous prenbns 
ces trais a notre charge, un service 
gratuit de plus! L'envoi de vos pro- 
grammes s'est d'ailleurs un peu 
calme depuis debut juillet. nous 
n'en recevons "plus" qu'une cin- 
quantaine en moyenne, par jour 
alors que nous sommes "monies" 
lusqu'a 150 par jour. 750 par se- 
maine! Et a la rentree. nous nous 
attendons a des envois massifs de 
programmes crees pendant les va- 
cances. pa va etre notre fete. 

Gerard CECCALDI 



MENU 




LES SUPERS-STARS D'ATARI 
POUR TEXAS Tl 99, APPLE 
COMMODORE 64, ET VIC 20 
SONT DISPONIBLES DES A 
PRESENT, VOIR PAGE 7. 



APPLE II 

Gerard SEBBAH 

CANON X07 

Robert CHAU 

FX702P 

Philippe LURIN 

COMMODORE 64 

Michel GIRBOUX 

VIC 20 

Michel DIGONNEAUX 

DRAGON 

Marc BARTHELEMY 

ATARI 

Ronan MORALES 

HP 41 

Denis AVOCAT 

ORIC 1 

Amaud LE BER 

MZ80 

J.Marie DUHEN 

PC 1211 

J.Luc MESPLE 

Frangois RAPENNE 

ZX81 

B.HANNIQUET 

SPECTRUM 

Emmanuel RICROS 

TRS 80 Cadavres Exquls 

Philippe HENRY Page 3 

Tl 99/4A{b.s) Jeu Topolog'ique 

J.Y.Michel etO.MOREIGNE Page 3 

Tl 99/4A(b.e) Donion.dragonet Cie 

Thierry CLEMENT Page 14 

TO 7 Diamants 

Fabrice GEROMETTA Page 2 



K7.DISK and Cie 

Page 16 

Black Jack 

Page 15 

Laser 03 

Page 17 

Flipper pong 

Page 18 

Dedale 

page 4 

C.A.O. 

Page 13 

Entrepnse 

Page 5 

Pioth 

Page 2 

Aiglon 

Page 17 

Jeu de la Vie 

Page 6 

Tost de Memoire 

Page 6 

Labyrinthe 

Page 14 

Gamord 

Page 12 

Dessm 



Suite page 18 



SOS BUG 

Votre programme est plante? HEB- 
DOGICIEL a tait une boulette dans 
un programme? Appelez-nous IE 
VENDREDI au 16 (1) 577 19 04 de 
10 H a 18 heures. 



LES CONCOURS PERMANENTS : 

10 000 francs de prix au meilleur programme CHAQUE MOIS 
1 voyage en Californie pour le meilleur logiciel CHAQUE TRI- 
MESTRE (Reglement en page interieure) 



DES PROGRAMMES POUR VOTRE ORDINATEUR : APPLE II ET HE 
ATARI . CANON X-07 . CASIO FX 702-P . COMMODORE 64 ET 
VIC 20. DRAGON. HEWLETT PACKARD HP 41 . ORIC 1 ET ATMOS . 
SHARP MZ, PC 1211, PC 1500 . SINCLAIR ZX 81 ET SPECTRUM. 
TANDY . TRS 80 . TEXAS TI-99/4A . THOMSON T07 



HlPPOREBUS trouve* repression qui se cache dans la B D de i hippocampe Decompose en irois syllabes dans les trois premieres cases le tout 
isoludon en page mteneure) 



Ovidemmenl un rapport Bvec I'mtOf matiqufl 




( N°41 "^ 

^11 T 120 Juillet 1984 J 



Allemagne 3.50 DM • Belflique 55 Frs - Canada 2.50 $ - Luxembourg 57 Frs - Suisse 3 Frs • 



PLOTH 



Ce programme traceur d'histogrammes, fonctionne sur 
HP 41 munie d'une imprimante. Ce programme permet 
I'impression de traces a parlir de couple de valeurs 
(X,Y) ou suivant une fonction preaiablement program- 
mes. II constitue un outil de travail interessant dans le 
cas d'anafyses statistiques. 

Denis AVOCAT 

Taille: 80 registres - SIZE * 14. 
2 options: A — Trace a partir de couple (X.Y) 
B -• Trac*S a partir dune fonction Y = l(X) entree en memoire pro- 
gramme 

Execution: 1 choisir une option A ou B. 
NAME?: Entrer le nom de la fonction (oplion B) a tracer, reponse 

facultative si option A. 
YMIN? 0< = Y: Borne inferieure de I'axe des Y. 
YMAX?: Some superieure a I'axe des Y. 
XMIN">: Borne inferieure des X. 
XMAX?: Borne superieure des X. 
X.NC: Si un nombre positi): increment sur I'axe des X. 
Si nombre n6gatif: nombre de points a calculer. 
2: Option 8; Deroulement du programme avec impression de I'histo- 
gramme. 

Option A: X = N Y = ?: Entrer la valeur de Y correspondant a X = 
N juste apres te beep sonore. Le flag reste allume pour indiquer 
que Ion peut rentrer une donnee numerique. 
Si aucune donnee numerique n'est rentree durant cette pause, le 
programme repose la meme question. 
Introduisez tie meme les autres donnees numeriques. 

44 CF 12 

45 flDV 

46 6 

47 SKPCHR 

48 -plot of - 

49 ORCL 11 
58 FS?C 83 

51 CLfi 

52 fiCfl 

53 PRBUF 

54 RCL 88 

55 RCL 89 

56 -X- 

57 XEQ 89 

58 STO 87 

59 7 
68 fiCCHP 

61 PPBUF 

62 138 

63 STO 82 

64 XEQ 83 

65 RCL 18 



» 38 63. K 


22 PROHPT 


81»lBL -PLOT H- 


23 STO 81 


82.LBL B 


24 X<=V> 


83 CF 93 


25 GTO 11 


M CF 23 


26 18 


95 FC 82 


27 RCL 81 


86 SF 26 


28 RCL 88 


87 AON 


29 - 


88 -nmt y 


38 / 


89 PWBPT 


31 STO 94 


19 flOFF 


32»LBL 13 


11 FCC 23 


33 -X BIN ■> 


12 SF 83 


34 PROMPT 


13 (1SI0 !! 


35 STO 98 


14.LBL 11 


36 -X WW ? 


15 -Y KIN ? 8<=V 


37 PROMPT 


16 ax 


38 STO 89 


17 PTOWT 


39 XW> 


18 X<8? 


48 GTO 13 


19 GTO 11 


41 -X INC ? 


28 STO 88 


42 PPOHPT 


21 -Y WW ?■ 


43 STO 18 



66 X>8'> 

67 GTO 88 

68 RCL 89 

69 RCL 88 
78 - 

71 RCL 18 

72 BBS 

73 / 

74 STO 18 
75»LBL 89 

76 RCL 89 

77 RCL 88 

78 BBS 

79 X<Y? 
88 XOY 

81 RCL 87 

82 / 

83 LOG 

84 INT 

85 2 
86- 

87 BBS 

88 STO 85 

89 X=8? 
98 SF 83 

91 38 

92 FS'C 83 

93 31 

94 SKPCOL 

95 127 

96 kcol 

97 ■ 

98 BCB 

99 •—• 

188 BCB 

181 BCCOL 

182 PRBUF 
163 RCL 88 

184 STO 86 

185 SF 81 
186.L8L 14 

187 FIX IND 85 
168 RCL 87 
199 / 
118 RHD 

111 STO 12 

112 BCX 

113 I 

114 RCL 85 

115 B8S 

116 FCC 81 

117 5 



118 X<=Y' 

119 XEQ 98 
128 3 

121 SKPCOL 

122 CLB 

123 "X=- 

124 BRCL 66 

125 'F Y*? - 

126 CF 21 

127 FC 82 

128 BVIEU 

129 SF 21 
138 CF 22 
13KL8L 12 

132 SF 88 

133 TONE 9 

134 FC 82 

135 PSE 

136 CF 86 

137 FS? 92 

138 SF 22 

139 FCC 22 
148 GTO 12 

141 FC? 82 

142 GTO 16 

143 RCL 86 

144 XEQ INS 11 
145.LBL 16 

146 RCL 94 

147 « 

148 INT 

149 BBS 
158 18 

151 X<Y? 

152 18 

153 RUN 

154 X»6? 

155 GTO 96 

156 127 

157 BCCOL 

158 GTO 87 
159«L8L 86 
168 RCL b 

161 31 

162 BCCNR 

163 RDN 

164 BSE Y 

165 STO b 
I66»LBL 87 

167 PRBUF 

168 RCL 18 

169 ST* 86 



178 RCL 89 

171 RCL 86 

172 X<=V> 

173 GTO 14 

174 FIX 4 

175 CF 82 

176 BEEP 

177 RIN 
178.LBL 83 

179 CF 12 
188 RCL 88 

181 RCL 81 

182 ■»■ 

183 XEO 69 

184 STO 66 

185 125 

186 BCCHR 

187 PRBUF 

188 RCL 82 

189 INT 
198 BBS 

191 STO 82 

192 168 

193 X<Y? 

194 GTO 18 

195 RCL 88 

196 RCL 86 

197 / 

198 RMI 

199 BCX 

288 XES 85 
28! Rt 

282 RCL 81 

283 XEO 84 

284 Rt 

285 * 

286 - 

297 7 

298 X<=V> 

289 RDN 

218 SKPCOL 

211 RCL 81 

212 RCL 86 

213 / 

214 RNB 

215 BCX 

216 BBV 

217 RTN 
218.L8L 64 

219 RCL 86 
228 / 

221 RHD 



222HBL 85 

223 BBS 

224 INT 

225 X<9' 

226 GTO 99 

227 RDN 

228 5 

229«LBL 88 
236 LOG 

231 INT 

232 RCL 85 

233 * 

234 3 

235 ♦ 

236 7 

237 » 

238 RTN 
239«LBL 89 
248 "F <UNITS= 

241 X<=Y' 

242 GTO 18 

243 XOY 

244 BBS 

245 X<Y? 

246 XOY 

247 LOG 

248 X<8? 

249 GTO 99 
258 INT 

251 2 

252 XOY 

253 X>Y? 

254 GTO 81 

255 - 

256 STO 85 

257 8 

258 GTO 82 
259»LBL 66 
266 FRC 

261 X<8? 

262 1 

263 LBSTX 

264 INT 

265 XOY 

266 - 
267.LBL 81 
268 -1 E- 
269<LBL 82 
278 4 

271 SKPCHR 

272 BCB 

273 FIX 8 



274 R1W 

275 W> 

276 GTO 99 

277 BCX 

278 181X 

279 2 

288 STO 85 

281 FIX 2 

282 RDN 

283 GTO 8! 
284»L8L 88 

285 I 

286 BCX 

287 FIX IND 85 
288.LBL 81 

289 •> • 
298 BCB 
291 RTN 
292»LBL 16 

293 8 

294 / 

295 STOP 
296«LBL 88 

297 X=V> 

298 GTO 15 

299 RCL 12 

388 1 E2 

381 X<=V> 

382 RTH 

383 1 

384 SKPCHR 

385 SF 81 
386.LBL 15 
387 RCL 12 
368 1 El 

389 X<=Y1 
318 RTN 

311 1 

312 SKPCHR 

313 SF 81 

314 RTN 
315.LBL B 

316 SF 82 

317 CF 26 

318 GTO B 

319 END 



Le 27 juiltsl. un numtro 
quadruple pour te prti de 3 
numeros. 4 programme* 
par orrMnateur. 64 pages' 
24 francs Chez voire mar- 
chend de rournauv. 




16,811 

28, 81,1111 Iff I II II I 

36.8 I HIW I 

48.811 

58,6llinilllllllllll! 

68.81111111111111 

78,6 HII 

89,81111111111111 

98,8111 

PLOT OF SN 
X <UNITS= !> 4 
Y <UNITS= 1> » 



H* 



A\ 



18 III 

28 mill 

38 lllllllli 

48 nillllllll 

58 nillllllllll 

66 illlHIIIHini 

78 lllllilllliltlll 

88 nilHIHIIHHIl 

98 nillllillllllllll 

!98nillllllllllllll 

1191111111111111111 

129RinilllllHII 

138 lllllllllllll 

14811111111111 

158 lllllllli 

168 HUH 

1 78 III 



81 



DIAMANTS 



? Dome,-!. i. 



Apres Tor, voici les diamants: vous etes dans un laby- 
nnthe et vous devez y prendre les diamants ' , mais le 
gardien vous poursuit en modifiant le labyrinthe. Pour 
vous aider, des trappes obligent le gardien a retoumer 
a la case depart en bas a gauche. 

Fabrice GEROMETTA 



TO 7 



1.1,0.1,1,6,1.-1,1, -1,0,-1 

CON$aLE0.24,0,0:CLS:SCPEEl«7.0,0:D£FIN 
TA-Z-CLEAP. ,9iX«t9. Y« 1 ! fl« 1 : B«22i L0CATE9, 
0, 0i C"X : L* Yt ftT TPB0. 0, s A!**' 12345- :P=32 
12 K<0>«32:fc.'l '«I27JH=B:V=BJP0K£59329,56 
. P£-;7C.pe:F0RT»[TO8:REAI> PA.PB: INX<T)«PA: 
INY<T>-PB:NE;-:T 

14 MKIKIKIIIMXKMKIIIUI 

15 ' CAPACTERES 

J6 ,,,,,,.......,..., ,..,..,.,. 

[7 DEFCRSCeV-56.36. 16-254. 186, 136,40,40 

19 DEFGRi'l ,.126.129.165. 129,153. 129,213 

,170 

19 DEFCPi(2>-6. 42, 85, 42, 85,42,85,6 

28 DEFGP*'3>-8.0,6,24, 24, 0,6,8 

21 DEFGR*<4>.9,8, 36,6, 6,36,0,8 

22 DEFCRf'57-6, 84, 9. 0,66. 8,34.0 

23 0EFGRt(7>-144,e,8, 129,0,0,146,8 
25 &OTOI000 



Le 27 juitlet, un numero 
quadruple pour le prix de 3 
numeros. 4 programmes 
par ordlnateur, &4 pages! 
24 francs chex voire mar- 
chand de journaux. 



Pour entrer le labyrinihe. faire: BOXF(O.O) - (319, 199),4. 

Appuyer sur la louche INS a peu pres 10 fois, en (ait. juste assez 

de place pour pouvoir mettre le numero de ligne. un espace et 

PRINT. 

Puis modifier les 40 carr&s noirs obtenus en fonction du labyrinthe 

ligne 30 a 250, POKE 59329,56: remet le son, POKE 59329,0: retire 

tout ie son. POKE 24633,7: initialisation. 

CHR$ (27):A: caractere en rouge, 

B: caractere vert, 

C: caractere jaune. 

D: caractere bleu fonce 

E: caractere violet. 

F: caractere bleu clair. 

G: caractere blanc, 

L: caractere normaul. 

M: caractere en double. 

N: caractere en double. 

O: caractere en double largeur, en double hauteur, 

P: caractere en fond noir. 

Q: caractere en (ond rouge. 

R: caractere en fond vert. 

S: caractere en fond jaune. 

T: caractere en fond bleu fonce. 

U: caractere en fond violet. 

V: caractere en fond bleu clair. 

W: caractere en fond blanc. 

a: couleur du cadre rouge. 

b: couleur du cadre vert. 

c: couleur du cadre jaune. 

d: couleur du cadre bleu fonce. 

e: couleur du cadre violet, 

f: couleur du cadre bleu clair. 

g: couleur du cadre blanc 
Tous les codes ASCII peuvent etre utilises en PRINT 
Exemple: Faire PRINT CHRS (126). 

Puis remonter le curseur, appuyer sur INS 8 fois, taper 5 PRINT 
avancer le curseur une fois, puis taper ENTREE. 



r>E5SI« DU LABYRINTHE 



26 

£7 ' 

28 ' 

29 T-6: SC'0i X-l 9: Y*]:r. =.:•;; l-Y:a«1.B-22.H= 
fi:V.6:P-32:NO-8:i*l-0!LOCOTEe,0,0 

38 T-8. COLOP7,0!CLS 
31 REST0RE47 

ZZ F0fiI-lT024:PEi4L.»*:FCJPT-lT0LEN(A»;:IFn 

IDt'AI.T, I >-' ■THEKPPIHT" "JEL3EPR1NICHR 

*(127>i 

33 NE/TTiMEZII 

47 DfcTtV#M*M 

Nitiini' 

48 DtrTfl-* 



210 
226 
236 




••♦* •*• 


• 


&AIO-* • 
DATA'* • 


••• » •• * 


. 


240 


• * 


• 


s ■ e 


DATA"**tO + >*' 




... 






24:PPlNT*TEI1PSi- 


MX 


*<T 


;:L0COTE25.£4:p 


?IMl"SCORE:-.STR* 


SO 


;:L0CPTE13,24:PPIJ.T 


HlVE«u:-!STPHtlI 




268 


ET0ILE5 


ET GRILLES 












?9fl 


XD-RMD*38*1 = Y1>" 


»Nt>*22*ltlfSCREEN 


Kt>. 


■ ■■■ 


127 ORSCPEEN'::[. 


Y["=42THEK296 




366 


PSET':>:D,yO)*«", 


>MV*i'l.&:NO=Hb'l 


[FN 


D-161THEM328 






3tfl 


COTO 298 






320 


FOPI-eTGie 






330 


C = PND«33'1 :l»PH[*1 :-•!: IFSCPEEM'C 




t£7ClPSCPEEN<C.L'«42THEN330 




349 


P5ET<C,L-r,PI<£< 


7,6:«>:T 




350 


PSET(K.Y>CP«re.. 


4,3!PSET<6,8>GR« 


1 >> 


7.4 


T-T*.3:C0L0p-.e 


L0CATE6,24!PP1NTSTR« 


(1NT(T») 














:\-: 


DEPLfiCtMENT 8OHH0MME 





1 366 I 

INV.'I 



■&TICI £e).C"X)L"' 



*INX(HN> 




-1THEN660 
396 IF BCREEMCX,V>"127THEK»-CIY-L 

395 IF SCREEN<X,Y>«42 THENPLAVT5A6L20-* 

HID*(A1I,RND«4»1,1>*-S0":SC»SC*1!L0C0TE3 

1.24JCOLrjR7,0iPP!NTSTR«(SC» 

466 IFXOC OPYOL THENPSET (C, L > " *,1,6 

410 IFSC-I90 THEN 80S 



DEPI-ACEI1ENT nOKSTPE 



459 H-A: V-B:N-N*1! IFNOHI THEN508ELSEN = 

460 A-A-CACK)*(0>X> 

465 Ni.NH-lilFNl<NH.5THE«490 

476 HI-0iB-B-<B'Y)*'B>Y) 

498 PSET(H,V>CMRI-P>,7,6! 1 FSCPEEN< A. B >-4 

2THENP-42ELSEP-K(RH0- 
1 500 lFP01NT'A»8*l,B»8*£'-7Al»C)5CRE£N(- r B> 

'>127ANDSCREEN(A,8>042THEIIA»|:B"22:PLAY 

•T2AlL304SIS15ISOSOSODODOr<003'iO' 3 0' : vU'Ji^i'T. 

OSOOlSOSOSOSOOlLeA'jt.tjDOL-'rjDOI'OIiODOt'Ot'Ol.nr. 

ODODODOOODO' 

585 IFA-X AND B-Y THEN666 
'518 C0T0356 

526 ' 

1 538 ' 



PI IE PERDUE 



i SCREEN,, 3 1 TOR I -5 TO 1 STEP- 1 :PLAY'T3U5L 
• RICHTaKSTPCM i, I )»-S]SOD0-fP5ET'fl,B> 
^e-niNEXTtPLAY-DODCpDODODODODODODO-iS 
EN, ,6 

i C0L0P3,6:CLS:Bi»'UNE HUTRE PARTIE ?' 
i RESTOPE780:Ff)P[>lTO^:PErtDAi:FORJ-lTO 
l'ff»MPLAY-T5L3A50ISI-:L0CATE8,3*IJC0L 
,0IPR1NTLEFTI'AI, J > ; : C0L0P7. 4 : PPI NTGR 

t\ iHtXHP8ETC8*Lei«AI -.3-1 ■" -,7,0:NE 



XT:C0NSOLE4, 10 

639 F0RI=8T0ie:SCPEEN6 

6*8 FORT.0TO26e:NEKT:SCPEEN7 

o58 FrjPT = 8TI}280:NE:-.'T:NE:<TI :CONSOLE0,24 

666 CLSi PRINT -SCOPE: - ; $C : PR 1 N! : PR I NT -Ml v 

EAU:-NI:PRINT-TEHPS: *| T t F0RI-1T0LEN(B*)I 

L0CATE6. l2:PRINTLErTItB., I 'I lPL«Y"PP'l« 

XT:PLAY-L6A104S0-:0f=lNPUII' 1 ■: IFA*-'0"T 

HENCOLOR7,0iLOCATE8. 1 2: PR I NT 'QUEL NIVEAU 

7-;:GOTOI210ELSEPOKE24633,7 

766 DATA-*i*« •••• •••* ••• • •- 

719 DATA'* *• » 

728 [j.-,T.i-*.«. ••* •••• • • • •' 

738 DATA'* * •*••••- 

748 DATA-* tit. * * ••* »•■> 

750 " ' ' " ' ' * " " " " " ' ■ ■ 

76B ' PARTIE CAGNE 

776 '"*•* • 

808 C0L0R3,eiCLSiBf-UN AUTRE PARTIE T 

805 REST0PE998:r0PI^l TD5: RE AfjAI : FORJ" I TO 

LEN(A*>:PLAY*T5L3A501SI-:LOCilTE8,3*i:COL 

0R7,6:PRINTLEFT*.A.. J) : : C0L0R4, 3i PPI NTGB 

t(8>;!NEXT:PSET'6tLEN(A«>,3t.I)* *.7.8:NE 

XT:C0NS0LE4,16 

818 FOPI-8TO10ISCREEN6 

826 F0RT»eT02«e.NE^TlSCPEEN7 

836 F0RT-eT0268JNE:-:T!NE:-:T I : CONSOLE©. 24 

340 COLOR3,0ir;LS:B*=-IJN hUTRE PAffTIE ?' 

350 GOTO 666 

900 DATA'**** •• •••• * * *••*- 

918 DATA-* * * • •• • • 

926 DATA-* *• •••* ••*••• ••* - 

938 DATA'* ........ 

948 DATrt-*»«» • • •••• • • ••••- 

1616 ' PRESENTATION 

1820 .'"■•««•""• ,,,,......... 

1030 A*-*DIAHANTS- 

1032 COLOR0.6'FOPT.1TO LENv Al >STEP2: Bl-B 
• *CHR»<27)*-C-*f1IDHAI,T, ]>*CHR«<27-»'»- 
*rlID*<A*,T.|,l) 

1034 C*-Ci*CHRH27>t-A-tHID*'.B«,T,l)*CMR 
K27>**C'*l1ID*<Ai,T*l, 1J.NEXT 
1048 F0RI"1T0LEN(A.:'STEP2:F0RJ-1T0I2!PSE 
•■:-!■.. i .Mjh.. „.. i, : .. i 
1045 PSETCIM5, J-l>- -iNEXT 
1050 F0RJ-1T012:PSET<I*-16. JjHlD*'Af. 1*1, 
1>.3 

1066 PSET(I*16, J-l>" -iNEXTiNEXT 
1078 FOR I -0TO10: LOCATE!*. 12:PRINTB* 
1080 PLAVL3A5D0SILAHIS0FAD0S1RE- 
1090 L0CATE16, 12IPPINTC1 
1106 PLAY-L3A5D0SILhM1S0FhDOSIRE" 
1116 NEXT 

1129 C0L0R2!A*--UUEL NIVEAU 1 A 57VF0RJ 
-LEN(Af)TOISTEP-l'FORI-0TO9t J!C0L0R5t IFN 
ID«<At,J,l)«- ■TMEN1205 ELSE L0CATEI.24, 
0!PPINT- -.JilDt'AI, J, 1 )) 
1290 PLAY-A5T3L30IS1-.NEXT1 
1205 NEXTJ 

1210 A«»INPUTK1 HNI-VAL(A*)iIFNI<lOH*iI> 
5THENI218 

1220 CLS:L0CATE6, 1 2: PRINT "APPUYER SUP LE 
60UT0N-ACTION-* 

1239 R-RNDHF STR1G' 8^-6THEN1230 

1240 G0T029 



CADAVRES EXQUIS 



Le programmateur polymorphe a enfante une casse- 
role votante. Le journal comestible pond loeuvre mex- 
tinguible. Le monolithe flamboie vertement jovial, 

Philippe HENRI 

Le nom du programme vient des surrealistes qui jouaient a creer 
ties phrases en mettant bout a bout des mots ou expressions sans , 3 
surte. Pour lire la phrase suivante. appuyer sur une touche quelcon- 46e 
que ^ 




Le 27 Juilltt. un num*ro 
quadruple pour i« p f „ a* 3 
rwmiroa. 4 programmes 
par ordirurteur. 64 pages' 
24 francs chez votre mar- 
thend d* Joumaux. 



3«3 Gl-GE ' Hl-NO 

318 IF PS-1 THEN rji.l .;-; 

3ZB IF BIGHTt'HO*. 1 >- ,, E.-' tuem C1«I 

333 10«-MOS*TEt'rjl,Nl > 

398 RETURN 

488 SOUS-PROGfWiE VERBES 

418 TE-RWOO) 

4Z8 IF flS-1 TMEH P-B ELSE P-l 



PRECP-UT I ON? pQ(.iR POSSESSIFS 
■ PPJECTIF IHVHRimLC 
• rfBCULIM ■ PCniNIN 



:- - 



*«Dt ELSE M(jt-Fio»+VEf<T6,Na) 1B97 



TRS80 



438 IF TE»3 THEN KOt»VE*'TE.HO^ 
448 RETURH 

1 SOUS-PRrjCRBMWE RDVEPgES 

IF P-l THEN Pl-PtJO'l?) Mntm^r-.t*-' ■■.Pfl'pi) 
46? RETURN 

TRhITEHENT DES CP.S P*>PTIDJLIEPS '*) 

' IDENTIFICATION 
' ET SUPPRESS!?" DE 
* L'PSTERISOUE <tJ 



1120 



472 RS-1 . IDENTIFICATION 1288 

473 D-LEWMOS)-! 

408 RO*-LEFT^pto».D) ' L-PSTERIsOUE'tf)' 1216 

498 RETURN 1220 
388 ' mmitM«tiW«t «"«■«!* ff'T I f f «Ftt*tfft1« *>« t t U t " *tT t« 123? 

31? ' FSBRICPTION DE TP9LEAUX 1300 
523 't»f»»i*><.iii..rnff.»t..»r«»t*».*tift«ntM,.t t Ttf.tMttt 1383 

see 'antmncmttt trblepj; de-5 dete=minpnts ****tst**ts**m isie 

€10 DIM 0E*(3,2,2> 1^20 

620 FOR I-B TO 3 FOR J-l TO 2 ■ FOR K-l TO 2 1330 

630 RETO DEf<I. J.IO 1488 

643 NEXT K,J, I Kie 

7P0 '*«*«*«****»»**#* TABLEAU DES TDtHlHRISfWS ***»i****»r*«»* 1423 

710 DIM TEtC2.2) 1430 

720 FOR 1-1 TO 2 FOR J-l TO 2 1440 

730 REflO TESC I , J > 1430 

740 NEXT J, I 1320 



IB CLS 

20 CLERR 200 

23 N-1S 

38 PRINT CMRS( 23 > 

4« PRINT - JEU DO" 

41 PRINT - C«PAVRE EXOUtS- 

43 CCSU6 300 

-.? M-STRINC801 . " -)*-FR8»lCRTI0N D£ PHRASES SURREALISTES 

63 B-LEWRSJ-l . DEFILEMENT 

70 FOR 1*1 TOK 

90 PRINTS704. LEFTS(RS.32> 

90 FOR J-l TO 3 NEXT J 

100 M-RIGWT*(r?»,B>*LEFT«'H*..l ) 

110 NEXT I 

113 CLS 

117 PRINT CHR*<23) 

!i! ^Itf**' . «™=-r K ,«, u ^-,~-„ 900 ' **************** TFPLEPU DES VERBES 

2 rT!r- . COMPTEUR DE LETTRES PRR LICNEgie DIM VE*'3.2> 

123 CI-C1*: • COMPTEUR DE °HRf»SES 

130 for I-l TO 6 
133 HR-RNCKN) 

1 30 MO*-«Of< I , MR > 

139 IF RIGHTS(WO*.l>-"*" (30SUB 470 ELSE RS-8 

140 ON I CCSUB 200. 300. 483. 433, 230. 339 

i« no**' •*no* ■ L-LEWWO*) 

130 C-C+LENX WC* > 

IS0 IF C>31 THEN C-LEWHC*) PRINT 

153 FOR J-l TO L 

170 PRINT MID«MO*.J,l}; 

173 FOR K-l TO 20 

180 NEXT K,J,I 

183 PRINT ■ PRINT 

190 B*-INXFr« ' IF g«--- THEN 190 

193 IF CIO 'HEN 120 ELSE 01-0 ' GOTO 115 

200 SCUS- CI RCCRO'--E N0MS "" ' 

210 5E-RNDO) 

220 : p DE-1 Then if >: THEN 210 ELSE IF Nf>2 THEN DE-DE-1 

221 - CRS PfPT;r:.( L IEPS DU =>05?ES?:f 
233 NO-RSD' 2 ) ' MOMBRE 
240 IF RS-1 THEN OE-2 ELSE OE-1 ' GENRE 
230 ROS-DE»(DE.GE,NO>*- ■*W»*TEsXl,H0) 
Z90 RETURN 
300 " " SOUS-PPCCRPMTE PDJECTIFS "" ">i"tff . 



»»»****»t*»*i«**»»**i 1303 



« DRTP --, -S".-E'-."ER* 

I ' 'ERSES' 

' I RTfl I ' sa . -trrjuj- . ' 

I i PREP09ITI0H9 

• DPTP a;ov- ovEC :T-r-"E r*»f«, ^e-sciER* 
■ ^a T c: DJ'/o..-,---, _._,, ? „ ^ &r 

■CHRCJE "'.■pp^jc p^sEDe'lE WERE .j-i^r*"e"-r-^ 

• mps .... . :..;.:; 

' '■*" - nor feminin ... 

DflTR POL I CHINELLE. KLEPTO^IflNE ■ rlf><;^ e •=■»-» " 

optp •u^:-~""^_' ■-=: ?-: = : — = :■. -;:?b«i =■-■ ; r. 

: .n-= FB.jT^-t.r-Ji-pos-ZE «;;-;;:, -- re ..-, - ! Z^r-'-r , ' " 

1 ROJECTIF9 'I-2> L--- 

■■*" . RDJE^Tjc INVRR1R8LE ... 

com cL»jr=:-:^ "--.:--.-■ — .- - — -■ -■-? - ■ ■ ■ 

ORTft SHOW-DOt^J.vOLRW.HYSTERIQyE.niMPeLE.POOCE 
DRTP POL1 , GRHE.C UH '.'VE.?7":CE -_c.. " : - : .. ;rr : -- : -- c ,.- 

■ ■x" - ve=3e t==-.3: ; :^ : :-e:- .. . 

DP'P "^S":LL"'.'*:E En-?=*:Ll.E» ":•-- l a- --• c -a»=;: = » 

-: Q -= :E??9:'j-t. -=:■.-?; * PE--i: r _E«.*- ------ =■!--«•;, 

DRTP jfiC S3-.-°-^t' :et-:"=i == les tripotej °-/e» 

' RO'^ERBES ^1-4? Z 

DRTR RUJOVRD'HUI HEfCfrVEC FRRCPS.s^PIDERENT.ecf - E) rRBH 

d°" q - dit-on -.-v===:p-:cf-E'- ;e ■;:■:■ z° -. = .■=*.- -••. •- 

d°tp - o'Est '.-•: ?:p'<:'<>le -.r-E?c°~=:^ --^ -- -- ■■■ a- -- 

. , E :-:■--:■. -.ir-r..- r : _ w; . ; c.-- ? » i s^ven- 

:.s-q Fo^:;r:',;r^ E -r.,- -oL'.E-E-i- 

• uors ,[. 5> 

•ION FEMIN1N 



020 FOR >1 TO 3 ■ FOR J-! TO 2 

030 RERD VE*<I.J> 

B40 NEXT J, I 

638 •<*****»*»****»*« TR9LERU DES 

963 DIM PR* 1 : 10> 

B70 FOR I-l TO 10 

930 RERD PR*<I) 

890 NEXT I 



mini ^635 
1613 
1S23 

1638 

1640 

\*tt**XTl**%XX* TR8LERU DES MOTS *«****«** mtmmtttll 1 7 W 

918 DIM M0J<6.N) 

923 FOR I-l TO S " FOR J-l TO H - " 

930 RERO MO*<I,J) " 

?ae "EXT J, I * 

930 RETURN 

993 ' LISTES „ 

990 'POUR INTRODUIRE DE "OUVER'JX rQTS. KE PRS 1U9LIER ^E X 

991 'MODIFIER LR VflLEUR DE LR VRRI9BLE N. „ 
993 ' 



:=-- -a^::L=-E ! _f .'-e^-:?:=s:e r^- : _r- : ^ r-^ - - ~ B - a .- 

1330 DRTP COCM0H,a#W,Cnsge«OLE»,eENOISB LEI NOU$TRCHE» a=.><= -.. 

:$3? ■ p?je:*ifc '.xi " 

• -*•■ - oc.pectif invrpirsle ... 

P D * D L - v S: t '.::.i ■■ .-a^---..-;- -,r-- ._;.iS.. T ro^MnaiM 

DRTR ROSE B0!J9t^t.9Ll.GRRE.MMCWIrWJE.Bft8R COOL* 
DRTR EN DENTELLE*.ROL«>TII?JEDE b-SCEL"!*^* °cs-e LE XE 
r,PTP ."RTP9='E. C 'J , * '. ,T .S' - PL"*' C . ^ - , ■ , 'I 



CETERMINRNTS 

1313 DflTfi Lerjt,tEURSjLEUR f LEUR8t80N,3ES.Sn<SeS 

1011 DRTR LE-LES,LR.LES.UN.DES-U"E,DES 

1312 DPTR rjE.CES.CETTE^CES 

1313 DR T P D«CUE>PUJ8IEUR3<H'inP0RTE QUELLE* CERTfllNES 
1029 ' TERMI'JRISONS 



HIMPRNZE TCHEC0SL0VROU! 
IRERR - D1T-0N 
PRMPLEMOUSSE PECOULINHf 



ES POLICMINELLES 
CHECOSLOVRrjlJEe 
OSTIULONNER0NT 
RRCIMONIEUSEMENT S U 
EURS PISSENLITS 



9 R COOL 

.R CIRRFE COMIOUE CRRESSE 

;U9REPTICEMENT SES PRNTRUOf 
SUBLIMES 



JEU TOPOLOGIQUE 



Un tableau comprend un ensemble rectangulaire de une ligne continue reliant les cotes haul et bas du ta- 

croix blanches imbriquees dans un ensemble rectangu- bleau. 

[aire de croix rouges. Aucune de ces lignes ne peut couper celle de I'adver- 

Le joueur possede les croix blanches. Quand il doit saire. Le joueur et I'ordinateur tirent un trait chacun a 

jouer. il reunit deux points adjacents par une ligne leur tour. Le vainqueur est ceiui qui, le premier a trace 

blanche, horizontal ou verticale. Son but est de tracer une ligne continue entre ses deux c6t6s 

une ligne continue reliant les cotes droits et gauches Vous voyez le TOPO? 

du tableau. 

L'ordinateur possede les croix rouges. Quand il doit J.Y.MICHEL et 

jouer, il reunit deux points adjacents par une ligne Olivier MOREIGNE 

rouge horizontale ou verticale. Son but est de tracer 



Remarques: 

Entoncer la touche ALPHA LOCK. 

Le joueur indique le trait qu'il desire tracer par les coordonnees de 

chaque extremite dans I'ordre: ligne (lettre A ou B ou C ou D). Co- 

lonne (chiffre 1 ou 2 ou 3 ou 4 ou 5). 

Le programme refuse les coups impossibles ou mlerdits (potnts non 

adjacents. trait coupant un trait de ladversaire. trait deia |oue...). 

Les traits joignant 2 points de la premiere colonne (ex: A1 -B1 ou 

C1 -D1 ou B1 -C1), qui n'apporlent rien, sont refuses. 

2 niveaux de jeux sont possibles: dans le niveau 1. I'ordinateur atta- 

que quand il voit qu'tl peut terminer avant le joueur. smon il contre le 

joueur; dans le niveau 2 il cherche uniquement a contrer le joueur. 



Le 27 juillet, un numero 
quadruple pour le prix de 3 
numeros. 4 programmes 
par ordlnaleur. 64 pages! 
24 francs chez votre mar- 
chand de journaux. 



TJ120.4.2) .T0l20,4,2).NJI2O», 



201 


,SCI4 


t.P'14I.O 




120 


REM 


inl 1 1 jI [»«tiori a«< cadn c# 




-. "■ 


MMlMura 




130 


CM ■ 


CHARI104 


"isiaieFFFFiBieis" 




CALL 


CHAR I 1 1 2 


"iBieiaFFFFieiaiB" 




CMJ. 


CHARIIOS 


- -j 00 'j OOFPFF oooooo ■ 




CALL 


CMftft ' 1 I z 


OOPFFFOOOOOO" 


I/O 


CALL 




"lSieiBI8I8iei818~ 




CALL 


CW* ( J 1 4 


"1818181818181818" 


19C 


CM L 


COLOR no 




20C 


OU 


COLOR ( 1 1 


16,31 


no 


RE Ft 






23S 


CALL 


CLEAR 




230 


CALL 


SCREEN IS* 




240 


FOR 


•Z TO 19 


STEP 4 


2SO 


FOR 


-10 TO 22 


STEP 4 


ZM 


CM L 


HCHAR II., 




270 


NEXT 


J 




280 


NEXT 


I 




29C 


FOR J-S TO 24 


STEP 4 


300 


CALL 


HCHAR (i.; 


,47*J/4> 


310 


MB ' T 


J 




320 


FOR 


-3 TO 17 


STEP * 


330 


CALL 


HCHAR (1.6 


,64.(1-1 1/41 


:a'. 


FOR J-9 TO 24 


STEP 4 


390 


CALL 


MCMAft'I.J 


. 1 12) 


-.... 


MEXT 


J 




370 


ME ' - 


1 




too 


RSI 


InitxIK 




mt to 






390 








400 


J-0 






410 


£-3* 


NT 11/3) 




430 


IF E-I THEN 64 




430 


11-1 






•4) 


E-3* 


NTI11/3J 




430 


;f e 


11 THEN 370 


460 


:;■-; 


2 




470 


E*4« 


NTU2/3> 




4SO 


IF £• 


12 THEN 3 





490 


j ■ .; - 






300 


TJ '1 


J.lt-Il 




310 


IF I 


13 THEN 330 


320 


J-J* 






330 


TJII, 


J , 1 J - 1 *3 




340 


IF t- 


-3 THEN 370 


3SO 


J-J. 






360 


T.J ' 1 


j.n-i-3 




970 


J-J4 






seo 


TJII, 


J, d-i*i 




3»0 


ran ■ 


-l TO J 




600 


TJII, 


<,2)-0 




610 


TOU. 


■i.D-TJII 


K,1J 


620 


ioa. 


'..2>-0 




6IO 


•••: .■ i 






640 


*: (i 


-J 




6SO 


mo. ■ : 


-J 




660 


1 - : • 






670 


IF I 


■20 THEN 400 


I4K 


n m 


ChOl dU mvMU 



690 Hl-'-NlVEAU DU JEU 7 

700 60SUB 3760 

710 CRLL CEVIO.NIV.STAn 

720 IF STATUS-0 THEN 711 

730 P.Erl comnencvmanC di 

740 n» = "VOUS COMMENCE/. ' 

730 CiOSUD 3760 

760 CALL KEVIO. P. STATUS 



ATUS-' 



THEN 760 



7BO IF fc7f THEN 

79': F£.ff 1 ' ofOi fiateur «ri9*g» 1> pirtir 

BOO NCOM-4 

910 REM premier coup choisi au hturO 

ai'O RANDOMIZE 

830 0I-INT{2O»RND)*l 

B40 E-3*INT(01/3) 

B30 IF E 01 THEN B70 

860 Ol-Ot-l 

870 Ol'-Ot*l 

880 REM } mu ardinatfur 

B-JO M»--ATTENTI()N ! JE JOUE 

WO 90CNJ8 J760 

«0 C-Inti (Ol-D/3) 

TOO i--t01-C«3i-4-l 

?» V-C»4*10 

940 IF 02-01-1 THEN 1020 

VSO FDR I-l To 5 

960 CALL SOUN0(lOO.-l,3) 

970 CALL MCHAAI/,V*1, 32,31 

9BO CALL SOUND MOO, -2,31 

V90 CALL HCHAPIX.V*!, 103,3) 

lOOO NEXT I 

1010 GOTO lOSO 

1020 FOR I-l TO 3 

J030 CALL S0UND<100,-1.3) 

1040 CALL VCHAPIX»l.¥,32,3i 

I03O CALL S0UNDMO0,-2,31 

1060 CM.L VCHAPIX-M.Y, 106,31 

1070 NEUT I 

10BO IF NCOM-1 THEN 33BO 

1090 PEN pomtag* du itgntnt jou* par 

I ordinittor d*ni J «. t«61*au tO 
1100 ^Ofi- I-l TO NO'OIl 

1110 IF TO (01, 1, I)' >Q1 THEN 1140 
1120 rO'Ol, 1,21-1 

I I 10 riOrn 1 130 
1 140 MEXT I 

1190 FOR I-l TO N0I02) 

1160 IF T0(02, 1, 1 K.01 THEN 1|90 

1170 T0I02. 1.21-1 

HBO GOTO 1210 

I 1 9o NE t T I 

12O0 REM elimination dam ou»»rtur#i ( 

•"•""»• t«po*miBIea dint la tableau tj 

1210 » i -oi 

1220 AZ-02 

1230 GOSU8 3670 

1240 FOR I-| TO NJ(Bl) 

I2SO IF TJIB1, [. 1 I BI THEN 1 320 

1260 NJ IBli-HJ 161 I -I 

1270 FOR J-I TO NJIBI ) 



12BO TJ<B1.J, l)-T4(Bl,J.l, 11 

1290 TJ(81,J,21-TJ(61.J*1,21 

1300 NEXT J 

1310 SOTO 1330 

1320 NEXT I 

1330 FOR I-| TO NJIB2) 

1340 IF TJ(B2, 1. j)08l THEN 

13SO NJ(B2)-NJ(B2)-1 

1360 FOR J-l TO NJ(82> 

1370 TJIB2.J.I)-TJ1B2.J*1.I! 

13BO TJ(B2,J,2)-TJ IB2, J.1,21 

1390 NEXT J 

I40O GOTO 1470 

1410 NEXT 1 

1420 GOTO 1470 

1430 REM jeu joueur 

1440 CALL S0UNDl200,-l,3) 

1430 M»-"VOU CAN'T PLAV i" 

1460 GOSUB 3760 

1470 Ma-"OUE JOUEZ-VOUS 7 

1460 BDSUB 3760 

1490 COL-21 

I3O0 GOSUB 3B20 

1310 IF R'63 THEN 1440 

1320 IF Rj68 THEN HflO 

1330 Rl-R 

1340 C0L-22 

1350 GOSUB 3820 

1360 IF R'49 THEN 1440 

13/0 IF ft.>53 THEN 1 440 

1380 R2-R 

1390 CALL HCHARI23.23.43! 

1600 COL -24 

1610 GOSUB 3870 

1620 IF R<63 THEN 1440 

1630 IF R..68 THEN 1440 

164--. R--R 

1630 COL-23 

1660 O0SUB 3820 

1670 IF R<49 THEN 1440 

1680 IF R -33 THEN 1440 

1670 R4-R 

1700 J1-IP.|-631-3*R?-4B 

1710 J2-'R3-631»3*R4-4B 

1 720 I' JKJ2 THEN 1760 

1730 J-Jl 

1740 JI-J2 

I 7B0 JT-.l 

I ■',■• ir,<- nj--| TO NJ(Jl) 

1770 IF TJ(JI.NJ2. D-J2 THEN I B0<> 

I7BO NE'r MJ2 

1790 GOTO 1440 

IBOO IP rJIJI,NJ2,2)-J T"EN 1440 
1810 M«-"WOUS CDNFIRMEZ 7 (O/N) - 
1020 D0BU8 17*0 

1830 I.-INI MJl ! 



Tl-99 4/A 
BASIC SIMPLE 



1140 

ies< 




1890 CALL KEriO.ft.STATUSl 

1900 IF STATUS-0 THEN 1870 

1910 IF R-78 THEN 1470 

1920 Call HCHAJt<X,Y-l, 113,3) 

1930 GOTO 2000 

1940 CALL VCHAR<X*l.v, 114.3) 

1930 CALL yCHAR(X*I.r, 32,31 

1960 CALL ►EYIO.fi. STATUS) 

1970 IF STATUS-0 THEN 1940 

I960 IF R-7B THEN 1470 

1990 CALL VCMAR'XM.r, 114,3) 

2000 M«-"JE C0G1TE... PATIENCE 

2OI0 GOSUB 3760 

2020 REM polnteqe du segment j( 

a joueur dim |e tableau tj 

2030 TJIJt.N02.21-l 

2040 FOR I-l 10 NJUIi 

2090 IF TJU2, i.i) 

2060 TJIJ2. I,2)-l 

2O70 GOTO 210O 

2080 MEXT 1 

209O REN evaluat 



Jl THEN 208O 



i joueur !■'■' gagne 



2100 NCJM-14 

2110 sm i-i 

2120 NCJ-0 

2130 K-l 

2140 I -SIM 

2130 

2160 IF OIK 

2170 IF 



NJ( 



•Jl-L 



I960 IF M >■ ■■- THEN 1V40 
1870 CALL HCMARIX.V'l, 1 13, ;i 

1800 CALL HCHM ■'..-!. •:■. Si 



: -O THEN 2230 
THEN 23O0 

2180 IF PIM-1 THEN 2200 

2190 NCJ-NCJ-1 

22O0 ' -' -1 

2210 IF 0(K1-I THEN 2170 

2220 0(K)-00>.)-l 

2230 II-SIK. 

2240 I2-0IK) 

2230 NS-TJII1, 12, 1) 

2260 FOR I«K TO 2 STEP -1 

2270 IF NS-S(I)THEN 2210 

22BO NEXT I 

2290 NCJF--NCJ 

23O0 PS-TJtll. 12,21 

23IO IF RS-l Then 2340 

2320 NCJP-NCJP'I 

2330 IF NCJR'-NCJM THEN 2210 

2340 • -> • i 



Suite page 4 



DEDALE 



Traversez un labyrinthe de dimension 20 X 20, du coin 
inferieur droit au coin supeneur gauche. Ce serait sim- 
ple, si les cases magiques ne vous teleportaient pas 
dun endroit a un autre... 

Michel DIGONNEAUX 

Pour vous dinger avec le clavier, suivez les instruclions podees 
sous forme de REMS en ligne 10 000 et suivantes. A lou! moment. 
vous pouvez consulter la carle en appuyanl sur le boulon "FEU" du 
joystick 
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v\c*> 



le POKE37131.8 PR-37131 PB-37132 RB-37154 

13 C0-37B98 EC-4096 REfUM DRESSES ECRfiM ET COULEU* RVEC EXT. 16K 

20 Dir«<22.22> DIfiB'22-22) 

rs oosuB3eee 

39 FOR.<-8T02I FDRI-0TO21 B<I.J)«1 RERDflt I , JriFFKl ,.JK2TH£N60 

40 !FRc[.J)/-NG-INT(A<I.J>/NG)-9THENA(I.Jj»d GOTO60 
36 IFRCI,JX>101THENRU.J>-1 
68 NEXT HEXT 

79 1-28 J-21 V»-l W— 1 H-9-HH-0 
96 P0KE36878.6 FuRL-HOl© F0fi'H>i89T0235ST£P2 PQK£3€876,r1 F0RN-1TGI9 -HE/T NEXT 

82 F0RW-1T0188 NEXT NEXT POKE3&878.0 

83 Tli- 0880« „ 

se PsiNT-rr ooroiee -T 

10e R-PEEK'.Pfl> POKERB. 127 B-PEEK'.PB "' POKERB. 255 W 

1B4 P9INT-Wil",MID*CTIf,3,2).- 3" . RIGHT*< T I«. 2> ; "•" O 

103 PRINT 3 —— ■■■WftQUVEMEHTT- Q 

116 IFCARND4J-9THENW-V HH-H OOTO130 

126 IFC«flHD6>-0THENVV— V MH— H G0T0189 

136 !F<BBND123>«0ThENHH-v w— H GOTO180 

148 IFCRHND1S>"0THE,'+(H— V W-M G0T0188 

138 IFCRflND32J-8THEN1580 

168 OOT0188 

190 II-I-HH JJ-J*W 

268 IFRCII,JJ)-1THENprinT"^»»/Cii.is VOUS COOHEZmiHCOHTRE LES MURS" GQTO380 

263 PRINT Tit* RLLE2-V " PRINT"TOMI 

216 I-II J-JJ V-W H=HH BCI,J)-0 

226 IFRCI- J)«101THENBU.JJ*35/64 

299 REriTRRCE DU PLRN 

368 F0R0-1T03 

369 REr-»C0UL0IR R GRUCME' 

318 IFRCI+V-M*tO-l>.;-H*V»lG-l,>><;-lTMENGOiUE12e0 G0TQ338 

326 ZB-(f>-l>*4S-P0XEEC+ZH,77.P0KEEC+Zfi+23,77 ZO232*42*<6-<0-J»:p0KEEC*-ZC,78 P0 
KEEC-ZC-21-78 
323 POKECC*Z°,3 ?:--rE:c*Z»*23- PQ<ECC*ZC,3 POKECG+ZC-21 -8 

329 RE*«C0UL0IR R DROITE^ 

336 IFRCI-V-H«(D-1>.J-H+V«<G-1)K>1THENG0SUB:339 GOT0338 
3*0 ZB-2l+42*<G-:>:P0KEEC+Z3.78:P0XEEOZB+21,73 ZD*S29*46»<G-<Q-f»-PQK££C+ZB,7? 

POKEEC+ZTJ-23, 77 
343 POKECO*ZB . POKECO-ZB+2 1.8 POKEC0-2D . P0KECQ+ZD-23. 9 
349 PEmruR DEVRNT'' 

330 IFR(I-H»<O-1),J+V«<O-1))»101THENGOSUB1600 
333 Iflfi<I-4W,J+V»G)01T>€ltCXTG 

368 IFG-6THESG0SIJ8U66-0OT0186 

3 t- 3 -.;. - :? Bteaq 

388 :FRa.JJ-181THENOOTO1700 

396 GOTO 106 

999 REMTRRCE DU rnje 

:080 P'j«EEC*4S*n ■? =-;^EE:>2*.*42-:*.53 --j--^'.-k3?-*-i2<K.e-n J .7S :PG«EEC + 223+46*(S-!l> 

,122 

1063 PCKEC0*46«fl.3 PC<E'3G-2L-'i?*;i,3 prj*ECf}+232+4Z*<6-n) .9 P0KECO*229+46«<6--M) .8 

1088 IFH-3THEN1838 

1010 F0RZ-*6*«*lT028*42»n Pn*EEC+Z*99:p«EC0>Z.e:NEXTZ 

1820 F0RZ-233+42*<6HOT022e+46«C6-n) POKEEC+Z. 183POXEC0+Z.9 NEXTZ 

1039 Fnpz-*6«n-22TG210*42«f6-f1)ST£P22.POKEEC*Z,181 F0KEC0+Z.8 NEXTZ 

1043 FnRZ"43-42«MTn£i?7+46*<S-ri,(STEP22 : POKEEC+Z, 183 POKECG+Z-B- NEXTZ 

1838 r^(I-ll«lJ-2>OR<I"2f«BJ-I)THEH0OSUS19e6 

1960 IFI-1PND;=ITHEN2808 

1073 RETURN 

1893 REM»C0UL0I'- TPDP LONO-TRRCE DE " 

1 100 POfEEC+239. 77 ■ PGKEEC+231 . 78 POXEEC+274, 78 ■ POKEEC+275, 7? 
■:?-. ^T'e::-;??.? =CKEC0«OT1.9:P0ltEC04274/eiP0KEC0*273>e 
1118 POKEEC+2T2,53 ?0KEEC*233.63 
1113 POKECC-2^2.-: =:'=CQ+253. 6 RETURN 
1199 REJWTRPCE DU COULOIR GPucHE 

1208 ZR-46»<G-1> POKEEC+ZR-131 P0KEEC-ZR+22, 181 POKEEC+Zh+23.32 P0KEEC+Zfl*44,79: 
P0KEEO*Z*MS,89 

1283 PWEC0-ZR,3 POKECO+ZR+22. 9 P0KEC0+Zh+44,9 POKEr.o+Zfl+43,8 

1210 ZC-232+42»<6-«J-t» POKEEC+ZE, 101 POrEEC+ZC-22. 101 iPOKEEC+ZC-21 ■ 32 POKEEC+Z 
C-44,76 

1212 POiTEEC*ZC-43,i22-PGK-ECO+ZC,0 POXECO*ZC-22,3.PGKECO*ZC-44,0 PQKE00*ZC-43,e 
1223 FrjRZ»ZP-c€-OZ.:-5GSTEP22 POKEEC+2, 131 :PCKEEC*Z+i . 103 
1223 P0KEC0*Z-8 POKECO*Z*1-0^NEXTZ 
1233 RETURN 

1299 PEfWTRRCE DU COULOIR BP-OIT 

1369 ZB=21*42»'0-l:' POKEEC+ZB. 133 P0VT£EC*ZB*22. 133 PG/EEC + ZF+21 , 32' P0KEEC+Z8+44, 
89 PC*EEC*ZB*43,79 

1395 P0rECO*Z3.3 'CElC-'ZB'iZ 3 ?^EOIE-«4, ^ ^^ECn^ZB**? ■ 3 

1318 ZB=229*46#''6-'G-r>J PO^EEC-ZD. 133 POKEEC-Zt-2^.32 POXEEC *ZD-22. 103 POKEEC+Z 
D-45,76 

1312 POCEEC-ZD-44, 122 

1315 POKECO+ZIi.3 POKECC+ZD-22.3 POKEOO+ZD-45.0 POfECG+ZD-44,0 

1328 F0RZ=ZB+63T0ZD-66STEP22-POKEEC*Z, 131 POKEEC+Z* 1 , 183 P0KEC0+Z.8 -PO^ECO+2+1 .0 
NEXT 
1333 RETURN 




1396 PPIHT"*r FOC^.t^nTQ^i F0RPI-6T021 PWEEC+22+PI*22*PJ ?2*P'PI PJ»I29 

1383 P0> F •■ -■ " •■" ■•. .. 4 >iv : ME.-T 

1310 PRINT efrr R CEU - 

1926 " r "Ee':-22-I + .'»22 81 P0''EC0*22+1 • ■»- 

15 73 IF'PEEKi p'" 1 'RND32 >*8THI 

1540 FOP* =3T0I03 NE- I 

1550 P0KEEC+22*[+J»Z2-87 FOPK-0IO2B8 NEXT G0T0I529 

1560 PPINT'n" I = I*hh ;=j-w OOTO180 

15?? PEH»TRflr£ pes CR5ES tiRfSIOi'E^ 

1630 FORZ-233+42*<7-0)T0228*46«<7-0) POKEEC+Z. 91 P0KEC0+Z.2 NEXT 

1610 F0PZ-212«42«<7-0;TnZ33+46«^7-G.' PQfEEC+Z.8! P0KEC0+Z.2 -NEXT 

1623 PETIJFN 

16?? PEMtPCTION CRSE MRGIOUE 

1733 IFfiNli'1^3.4TNEN130 

1710 PRIHT-S«H«re«(»:»»»Lfl CASE nWIOUE' PRINT"0»»W/fl VOUS EnnENER- P(tINT-«tM 

1720 P0KE36879.6 FORK-0TO254 kk= JNTCRND<1 )4300) POKEEC«KK.42ROKEco.>-k-, 6 RTXE369 

1725 NEXTK PO/E36078.0 POKE36B76.9 

1750 n-INT<RNDi:i>#l6+5' JJ-INT'PND'l '«16+5' 

1760 IFR'.II, JJ,<>0THEN1730 

1770 PPINT'Tl" G0T021» 

189? REM4WPNT-DEPNIERE CRSE 

1903 PPINT-flBaoaiBOOPMWMW/OiJS VOILR " PRINT"»»»W0ENF;N'" ppint- 

NCE2'»- 

1313 RETURN 

1999 REH*FIH DU JEU 

2038 PRINT"»MWOUS ETES LIBPE'' 1 

2333 PPINT-roMEN " . VML'MIPt 'TI«.3,2)>, "W. " • VRL'PIGHTJ'T I» ,2)>, "SEC. 

2835 F0RKO>C0+i38TuCO+147 FOPKF=0TOI4 P0KEX0+22»KP . NEXT NEXT 

2898 F0FK=EC+139TGEC+I46 POVEK.130 HEX1 

2813 FOPK»Er*i60TriEC*i68+I2*223TEP22 POKE*-. 103 POKEK.?,!01 NEXT 

2823 POKEEC+160+13*22. 122 P0rEEC+163+13*22+3,76 

2853 POKEEC+166.77 POVEEC+16?. €6 PWEEC-168.73 

2848 P0KEEC+188-64-PGKEEC+139.37 POXEEC+199.64 

2959 P0KEEC+213-7R POXEEC+211 66 PGKEEC+212,77 

2369 FQRK=EC+133*8«22T0EC+146+8*22 P0KEKi87 P0KEK*22.66 NEXT 

2363 IFPP=1THEN2118 

2378 PRIHT'MBOTWWPrtlTRE PflftC0UR9?" FHtH1'WM19HVUi/H m 

Z375 P0KE36379.S 

2338 FORn-254TO24e>INT<RND(t)«10>8TEP-l P0KE36376.M NEXTn POKE36876,8 

2933 P0KEEC*184,74 P0i-£EC+ 1 35 - *-l - , '"i''£= r '" + lR«.75 

2685 GETF* IFBI = ,, N"THEN2118 

23?? IFE*-"0"THENPP=1 'P0KE36378,8 G0T01539 

2Wi F0?i- = ?TniNT'PND'lJ»59>+29NEXTf1 

2335 P0?'EEC+!?4..R^ F0''EEC-!85 . 31 PCKEE'' + 195.73 

2103 GOTO2890 

2110 P0KE36873.3 PRINT"BH3J)0 I r»jN£ RijTPE">. . ,0/Ni r 

2120 GETH*IFRt = ''H"THENEND 

2139 IFR*="0"THENPUN 

2140 G0T02118 
2138 END 

2?3? REM6IHSTRUCTICW8 
3380 PPIHT"^iMMl»EiEDRLEt" 
"819 PRIMT"W7QUS ETE3 DHNS UN LRBVRIHTHE DE 23 CRSE3DE COTE." 



1.1.1,1.1,1.1.1,1.1.1.1 
.1.0.8,8.0.6.0.8.1-9131.1 
1.5.1,1.181,1,1,0,3.0,1,1 
.101.9,1.0,9.8.8,8,2,8,8,1 
.8.1.1.1.!. 1,1.8,1 



3828 PP I NT "tVO'JS PRRTEZ EN ER3 R DFOITE DE LR r.pji LE. 

T R GRUCHE." 

3039 PRINT "•POUR VOIP LE PflPCOURSDEJR EXPLORE RPPUVEH 

3949 PPINT"«-..'nij= POmvez VOIP LES GURTPE CPSES DE'.'flNT 

3345 PP I UTILES CRSES fTRGIQUES. PRVEES DE ROUGE. VOUS 

RFOIS!)" 

3059 IHPUT'-IMJPPILLE NUMEPO 111 fl 3"JHE 

3968 IFNE<1OPN£>3THEN3930 

3378 IFNE=1THENNG=2 

3833 IFNE=2THENNG=3 

3033 IFNE=3THENNG=5 

3109 RETURN 

5998 DRTR1, 1,1, 1,1, 1,1. 1,1,1 

5991 DRTR1,9.3.6-18,9.3,9.0, 

5902 DflTRl,5.1.0,1.8.1.3.5,l 

5083 DRTfil,0,?,8,5,10,1.9,l. 

c ^?4 L=)TRi,e,1.1.1.0,1.0,3,I 

5985 DRTR1. 3 -9, 9. 8. 9, 8. 8. 2, 8. 9. 8, 1,8, 1.8. 8. 181, 8 

5336 DRTR1, 3. 1,6, 1,5.1,3,5. 1.1.0. 1.3. 1-1- I. 9- 1.1-9,1 

^:?-7 DHTRl.1,1,8,101,1 .9,0,6,9,1,8,1,0.191,0,1,8.3.1.8 

599? DHTR1, 3, 1.1,9, 3, 1-9. 1.181. 8, 3, 181 .1-1.9,191.1,1,1 

599? DPTP1,9.0.I.1,0,5.8, 1.8. 1.1. 1,8,0,6. 1.0. 8, 181, 8,1 

5318 DflTfll, 1.9, 191, 9. 8, 1,1, 9- 9 -3. 8, I, 0.1. 8, 3. 8. 1,1,1,1 

5011 DftTfll. 0,6,1, 1,0, 9. 6- 1-8, 3, 0.9, 101.1 .9.1.8,1.0,191 

5912 DRTR1, 2. I, 1,0, 9- 1.9. 9. 9, 1.1. 5. 1,181, 3. 1-8. 1.8. 1,1 

5313 DRTRI .3, 8. 3. 1-5. 1.1. 181, 1.1. 0.8. 9- 1.9. 1-9. L3, 8.1 

5314 PRTR1.1,0.1,0.9.9.I91. 1.9,8-8,1.8.1.0.1.0.8.3.1.1 
5813 DRTR1, 8, 0,1, 8. 1,1, 3. 1.3, 1-3.1 .fl. J . 9- LI. 1,9, 1,1 

5916 BRTA1.199, 1.5.6.9.9.9.3,3.1.3,1.8,1.9.101,1.8.9.1 

5917 DflTfll, 9. 9- 9. 9. 1,1- 1.3. 1,181, 8. 1.1, 3, 6, 5. 1.0. 1.6.1 
5819 DRTRl, 1,5. 1.1. i.e. 8, 8. 9, 1.3. 8. 6. 8. 8. 9, 1-9- 3. 9.1 
591? TRTPl .8,9. 1.9.9.9.1,1.1.0.1.1.5,1.3.1,1,9,5.0,1 
5920 DRTR1. 1.181, 9.9. 1-990 191- 9, 8. 8-9, 3. 0.9. 8. 3. 1,6 
5821 DRTftl.l .1.1.1-1.1.1.1,1,1,1,1.1.1,1,1.1,1.1.1,1 

leeee REn**»*«»*f««»« 

13991 P£n*»#«#*****»* 



VOUS DEVEZ RRRIVER EN MRU 

SUR LE BOUTON 'FEU'." 
VOUS.ENSUITE. ..">?">" 
TPftiiSPOPTERONS (PR 



10902 PEf 



10139 I 



^TRt 



: PRS DE JOYSTICK 
LES nop if I CATIONS SUIVRHTES; 
HEP LR LIGNE... 19 
EI LES LIONET CI-DESSOUS 
'."1EP0S EfOIVEHT ETRES PIMIHUES DE 19000] 



IFRI*"3"THEHVV=V HH=H GOT0139 
13129 IFn*»"S"THENW—V HH^-H G0TOI38 
18133 IFPf = "E"THENHH-V ■'■«/»- H G0T0133 
13143 IFR«*'H"THENHH=-V'VV=H G0TO198 
19139 IFflt="*"TH£N1599 
1S510 PPINT" i p£TniiF- PPE" ? = EZ TUP *" 
11539 GETBf IFB*="* , 'TNEN1568 

11568 PPIHT"n" I = I + HN J=.T-VV P0KE193.9 G0T0139 
12998 PE«*0N SE DIPIGE RLORS PRR 
12313 PEn*3=RVRNT 

12311 t>En*W»ORMCHE 

12312 PEf1*£-DP0ITE 
1231? PEM*?=RPPIERE 



Suite de la page 3 



^ -n 99/4A 

BASIC SIMPLE 



FOP J-l TO NO 'I 



. a ■ 


5-> ,-<m "i 


2366 


Pit »=P5 *^? 


JNWO 


WCJfCJP P 


; :•;■ 


■ ■ . . tjs/31 


- ' 1 ■ 


[F £■ NS ThEM 214(, 




IF NCJ-'. THEN J490 


: 4 1 ■-, 


ncjm-ncj 


24» 


OF : . ir, r 




[F E 1 I i =! rwer. ; 




1 1 . 


243 


JDS-fl ■ : . 




if Pll-liw fMEN 2460 




IF (.M'JDi'-JFJi'M rwEW 2170 


1-4 -•'■.' 


GOTO 2I7'j 


23. ■■ ■ 


SUJ-SCU+3 


2310 


IF B(l)<20 THEN 2140 


7320 


REM Ulimn.Li.jn ijBi oii.cr 


■'•miM in«oHit>Ic> dant le title 


73 Z'j 


AI-J1 


2940 


R2-J2 


2330 


GQ5.Uf J470 


2360 


FOP I-i TO W0<B1) 


2370 


[I rOIBl, J,1X>B2 THEN 2640 


; 380 


NDlBll-NDIBl J -1 



..'.■■' 


T0IB1.J, 1 >>T0CS1,J*I . 11 


2610 


rocSI ,J,2)-T0<Bi .J-l. 7i 


2*20 


neit J 


2630 


GOTO 2630 


2640 


riE/f I 


■ 630 


fop i-i ro mi 




II rOCB2, l.ll L-: rMEM 2730 


2670 


N0<B2)"N01B2}-1 


. '. : 


FOP J-! TO f 


. ■■ " 


(B2,J,1J '■ '■...;-!.:.. 


. 7 ■ 


■ (82. J, 2: <T0(62.J*1 ,21 




ME1CT 1 




DTI 27! 




NEX1 ! 




PEM «V»|ul'|Or d 




coups. nucMiJim - 1 'ordinjl 




7730 


NCOM- 1 a 


.'..■■ 


B(1)«J 




NCO-O 


. ' - 




•'■ 


[-8(1 


■ ■ 


'.-.:. 


. f 1 1 


II ■ ■ FHEN ■:■ 


■ ■ 


■ : ■ 


. 1 ■■ 


IF P'» l-J [HI 


. ■■■■ ■ 


N 






t 


■ H ■ 



. NCOP-nCDP-1 

i IF rjfiijF NC.JM -HEN 2860 

• IF NC0P -NC0*1 Hi 

I I -• •] 



S030 


NCO-NCOP 




E-5»INT(N6/3> 


: 030 


[F E US THEN I79(i 


3040 


NCON-NCO 


3070 


FOP 1-2 TO > 


■..;... 


IF P(I)-I TNEN 3120 


3090 


J01-SU-I) 


■ : 


J02-SH> 


3110 


IF A6S(J0r-J01i-l THEN 3130 


120 


riE/'F I 




IF NCOM-1 THEN 3200 


S140 


GOTO 2820 


;■.-. 


3MI-SIIM5 


■I'y 


IF S(l J 7'i THEN 2790 


1 ; /■ . 


REM decision a. la ttratsg 


5180 


IF NIV-30 THEN 3270 


.:>■■ 


IF NCJtKNCOn THEN 3270 


J200 


IF J01 J02 THEN 3240 


5210 


0I-J01 


S220 


01-.) 02 


I .: ■' i 


GDTQ 690 


Z24'.- 


0I-J02 


1230 


02-JOl 




GOTO 890 


■..'•■ 


II JD1 JD7 rHEN 3310 


. 


AI-JDI 


. : ■■'■ ■ 


R2-JD2 




■ (0 


';■ 


<.1-JD2 




R2-JD1 




BOBUB 1670 


■ ■■ 


01-81 




02>B2 




GO 10 01" 


(70 


PEN fin Qb p*rtl» 


■ '.!:■ ■ 


n»-"NI HI ' VOUS AVE J PERDU 


•■ 


BOSUB 3760 




CALL SOUND (300. 397. 1) 




CALL SOUND (300. 392. 1 I 


J420 


CALL SOUNDI3O0.392, 11 


34 30 


CALL SOUND* I03<i. 31 1, 1 l 


J440 


CALL SOUND(300,349. 1) 



M SO 


C<-Ll SOUND '.ZOO, 349, II 


3460 


■ BOUND (300, 349, II 


S470 


CALL S0UNDI1000.-6. 1 ) 


400 


■ 


J490 


M»--DRAVO • VOUS AVE* GAGNE 


300 


GOSUU 3760 


:z, i • ■ 


CALL BOUNDI20O, ' "'.. 1 ■ 


S320 


CALL S0UND<Z0-i.44u, !J 


■-, .'■■ 


UNDI ISO, 330, l) 


:-.,i" 


CALL SOUND (50. 440, : 1 




tND{200,SS4. 1 , 


56i 


CALL SDUND((,7.44.j. 1 ; 




■ UNO (67, 354, l ■ 


■.'.!!■. 


I0UND(67,639, 11 


1 ■ 


UNDI 100.880, li 




M»--ON REJDUE f (O/NI 


S6I0 


BOSUB S760 


/. 


I0.R.8TATUBI 


■ ■ 


If BTATUS-0 1'ilri -,,..■ 


1640 


[i i-- .-■. rm n . 


S630 


.. .! 


5660 






.!■■■■■■ 1 


680 


. .. s mi ft 


-.-.-..■ 


■. : .4.1.-4 



MO ■ ■ 
BI< 






'a." 



■ 23. ■ . 

ni- i i , ■.■.. . riATUB) 

-Br.:- n fATUa-0 fHEN (820 

i860 I ■ '. 1,1 Dl ,R1 

B70 I I i uRN 



ENTREPRISE 



: IMPuT C:mmg*mng*c 



Le but du jeu est de rester chef d'entreprise, et rlche 
de preference. On achete des produits. on embauche, 
on licencie. on achete d'autres entrepnses, des ter- 
rains, des machines, on les revend. .Aidez le gouver- 
nement! 

Ronan MORALES 

Ce programme loome sur ATARI 800 ou 800 XL. Dans le listing. "Or 
(avec un trema) correspond a un etlacement d'ecran. 



Le 27 [uHlet. un numero 
quadruple pour le prli de 3 
numeros, 4 programmes 
par ordirtateur, 64 pages! 
24 francs chez voire mar- 
chand de journaux. 



IPfMHGK ■ 



; -.' -.. M 



3 DIM A*(123> ,BSI2> .CSI32) 
-800:PMAOP-400 

6 PNV0G-830:PMV0P*430:NMG=» 

7 POKE 732, I : POKE 19,0 

10 7 *u UV0ULE2-V0US DES EXPLICATION 
20 IF BS-*0* THEN GOSUB 9000 



:nmp=io:pr 



SO ' 

■10 



NE»200: AG< I20O0000: SE« 1 000: PMANG= 1 200 : FMANP=800: PMAOG 2610 

2620 7 
2430 7 
2640 7 
2630 7 
2660 7 



21B0 GOTO 70 

2300 ■> "(I* 

2310 *> 17 !7 17 :-> ;~> :-> 'COMBIEN DE GROSSES'; 

2320 AG-AG- (PMANG»C I : IF AG »0 THEN 10000 

2330 -> 'COMBIEN DE PET I TES* I : INPUT A:NMP-.NMP*A 

2340 AG-AG- (PMAHPtAJ : IF AG -0 THEN 10000 

2330 *" f %7 ■ IL VOUS RESTE -:a?j- PP. VOUS AVEZ DEPEN5E 

■ ff-:fop T-l to SOOlHEXf t 

2360 GOTO 70 

2370 END 

2300 7 "<j" 

2510 7 :-> • VENTE DE VOS MACHINES' 

2320 7 17 r -3 '7 CSf*, AVEZ-VOUS PENSE OUE SI VOUS SUPPIMEZ 

DE VOS QUVPIEP N'AURONS'S 

2560 7 ' PIEN A FAIRE 7 ALORS FENSEZ S'Y.VOUS SEREZ OBLIGE DE LICENCJER DES EMPL 
OYES.ALOPS PENSEZ S"Y '{ 

2570 7 "TRES SERIEUSEMENT . * 

2530 7 I? !? !» « VOULEZ-VOUS VRAIMENT VENDRE CES MACHINES' J : INPUT 8« 

2390 IF BS-*0' THEN 2610 

2600 IF B»-*N" THEN GOTO 70 



. MACHINES, CERTAINS 



10:NES-1 
i : INPUT B« 



7 17 "7 * PRI> DES MACHINES:* 

_GR033E5:350 FF * 
_PETITE3:430 FF' 
VOUS PDSSEDEZ 'JNMG.' GROSSES ET 'INMPi' PETITES MACHINES' 

COMBIEN DE GROSSES MACHINES VOULEZ-VOUS VENDRE "!: INPUT A 



■ARGENT DI 
(NE*3E>: - POUR LA PAY 
7 :*> " ON VOUS RETIRE ■ 
)»NE*PA/ 100000) '.-> 



?-7-?-7*7:7" BIENVENU- 

W7 !7 ' DANS' 

30 ' :' * VOTRE NOUVELLE ENTREPRISE* 

S3 GOSUB OOOO 

39 7 *o*:SOUND 1,62, IO,8:F0R T-l TO 100INEXT T:SOUND 1,0,0,0 

60 7 :7 *OUEL EST VOTRE PRENOM ";: INPUT CS 

70 7 -u-:SETCOLOR 1 , O, 1 0: SETCOLOR 2 , O, 0: SETCOLOR 4, 0, OlPOSITION 1,2: 

SPONIBLE: *lAG; ' FF" 

80 IF PEEK! 19) >5 THEN AG-AG- (NE*SE ): 7 17 "ON VOUS RETIRE 

E DES EMPLOYES": POKE 19,0 

10O IF AG > 1 2OOOOO00 THEN AG-AG- (NE»AG/ 1 000000 ) : 

OOOOOX* POUR LES IMPOTS'" 

110 IF PEEK<2O)>30 THEN ST-ST* ( f INMG*5 1 * (NMP*2 

iSTt* PRODUITS EN STOCK* 

120 7 :■> -VOUS POSSEDEZ *JNES;" ENTREPRISES ET *; 

ES-1 : AG-AG- 10000 

130 IF NT<0 THEN NT-O: AG-AG- 1OOO0O 

710 FOR I-I TO 3300:NEXT I 

720 IF AG<-0 THEN 10000 

730 IF STMOOOOOO THEN 11000 

980 SETCOLOR 2, O, O: SETCOLOR 1 , 0, 1 O: SETCOLOR 4,0,0 

883 7 *u OUE VOULEZ-VOUS FAI RE :*: SOUND O , 39 , I O, 8: FOR 1-1 TO 100:NEXT I : SOUND 0,0- 

,o,o 

890 7 !7 * D^EMBAUCHER* 

895 ? :' * 2)_LICENCIER DU PERSONNEL" 

90O ->;■>• 3>_ACHETER DES MACHINES* 

910 ?'J7 " 4>_VENDRE DES MACHINES* 

9*5 7 *7 • 5)_ACMETER DES PRODUITS SERVANT A FAIRE LE VOTRE 

920 7 * 6)_VENDRE VOTRE PRODUIT • 

930 7 57 " 7)_AUGMENTER LES SALAIPES" 

940 7 \7 " 8>_BAIS5£R LES SALAIRES" 

945 7 *7 * 9)_ACHETER DES ENTREPRISES, DES TERRAINS" 

947 7 * 10)_VENDR£ CES ENTREPRISES ,CES TERRAINS* 

930 ? I- 11 -TAPEZ LE CHIFFRE DE VOTRE CHOI/ *;:INPUT BS 



267H NMG-NMG-A: AG-AG* <PMVOG«A) 

2675 IF NMG'-2 THEN 7 *VOUS DEVEZ CARDER AU-MOINS 2 GROSSES HACH1 NES* : GOTO 2660 
2680 7 " COMBIEN DE PETITES MACHINES VOULEZ-VOUS VENDRE " ;: INPUT C 

2690 NMP=NMP-C: AG-AG* IPMVOP*C J : IF NMP<5 THEN 7 "VOUS DEVEZ GARCEP AU-MOINS 3 PET 
ITES MACHINES": GOTO 2680 

2700 7 *7 !7 *IL VOUS RESTE *:NHGS* GROSSES MACHINES ET "[NMPj* PETITES. VOUS AVE 
Z GAGNE " } IPMV0G*A) * <PMVOP*C) 1 

2710 7 * FF.CE OUI VOUS FAIT UN TOTAL DE *!AGi" FF * 
2720 FOR T*l TO 1 OCO ! NEXT T 
2740 GOTO 70 
2750 END 
NE * AG/10 3000 7 *0* 

3010 7 * - ACHAT DE PRODUITS" 

VOUS AVEZ _ 



3020 -* 



c«; * 



JE C0MPREND3 QUE VOUS VOULIEZ ACHETEZ DES PRODUITS. 



3030 7 "L'ENTREPRISE) .MAIS NE DEPENSEZ PAS TROP D'ARGENT'" 

3040 7 I - * :? J? " COMBIEN DE PIECES DIFFERENTES VOULEZ-VOUS I - DE 5 ) * 1 : I NPUT A 
3050 FOR I«l TO A:"* "COMBIEN DE PIECE DE LA •#*."•*- SORTE " i : INPUT C 
3060 AG=AG- (C*15) 
3065 PA-PA*C 
3070 NEXT I 
:080 ?:?!**" IL VOUS RESTE 'JAGi* FF. BONNE CHANCE ■ " 
3090 FOP Y=l TO 700:NEXT Y 
3100 GOTO 70 
3110 END 
3500 ? *u* 

3510 7 *7 :7 :? !7 " PRODUIRE.C^EST BIEN MAIS IL FAUT VENDRE CE PRODUIT.SINO 
N VOUS VOUS TROUVEREZ *; 
3315 7 *A LA RUE. *: 

3520 7 * C'EST POUROUOI JE VOUS PROPOSE DE VOUS L * ACHETER. MAI S NE COMPTEZ PAS T 
ROP SUR MOI TOUT LE TEMPS*! 

3330 ""• *,IL SE PEUT QUE JE SOIS EN FAILLITE MOI AUSSI . C'EST POUR CETTE RAISON QU 
E VOUS ME FEREZ UN PRIX'" 
3340 -> * ET TANT QUE J*Y PENSE, IL FAUDRA OUE VOUS PAYEZ POUR LA PUB DU PRODUITS 




935 IF B»="l* THEN 1 OOO 

960 IF B»-*2* THEN 1SOO 

963 IF B»-*3' THEN 2000 

970 IF 8»**4" THEN 2500 

973 IF B»-*5* THEN 3000 

9B0 IF B«»*6* THEN 3300 

985 IF B**»*7" THEN 4OO0 

990 IF B«-"8* THEN 4500 

994 IF B*-*9* THEN 5000 

997 IF B*»-IO- THEN 3500 

lOOO 7 *u BRAVO ' '. • • • *:SETCOLOR 2, O, 3: SETCOLOR 1 , 0, 5: SETCOLOR 4,0,3 

1010 7 17 - VOILA ENFIN UN CHEF D'ENTREPRISE OUI PENSE AUX CHOMEURS'* 

1020 7 * MAIS 3URTOUT N'OUBLIEZ PAS *iCSi* 8U' IL VA FALLOIR PAYEZ CES OUVRIERS E 

N PLUS* 

1030 7 *CELA VA VOUS FAIRE PEPDRE BEAUCOUP D ' ARGENT. B IEN SUR VOTRE PRODUCTION SE 

RA AUSSI AUGMENTEE D'OU'I 

1040 7 * UN PLUS GROS BENEFICE. MAIS UNE SUPPRODUCTI ON N'EST PAS A SOUHAITEE'" 

1060 7 '.7 J? "7 * VOULEZ-VOUS VRAIMENT ENGAGER DU PERSONNEL " i : INPUT BS 

1070 IF 8»-*0* THEN 1230 

1080 IF B«<>*0" THEN GOTO 70 

1230 7 *u* 

1260 7 !7 17 "** ;7 "COMBIEN DE PERS0NNE3 ENGAGER VOUS*i:lNPUT A 

1270 NE-NE»A 

1280 7 *7 *VOUS AVEZ DONC *:NEi* OUVRIERS DANS VOTRE ENTREPRI SE . BONNE CHANCE'" 

1290 7 !7 " J'ESPERE OUE VOUS POURREZ SURVIVRE AVEC * ; AG } * FF ' " 

1300 FOR T-l TO 2000 : NEXT T 

1310 GOTO 70 

1320 END 

1300 7 "u LICENCIMENT* 

1303 SETCOLOP 2,0,2:SETCOLOR 4 , 0, 2: SETCOLOR 1,0,0 

1310 7 l-> :■> S7 'TOUT D'ABOPD J'AIMERAIS VOUS DIRE "*C«;"OUE LE LICENCIMENT N'ES^ojq 

T PAS UNE BONNE CHOSE,*! B , 

1520 7 -AIMEPIEZ-VOUS BU'ON VOUS FASSE LA MEME CHOSE -5 . . . HON. * 

1330 7 -ALOPS PEFLICHISEZ S'Y AVANT DE PRENDRE VOTRE DECISION 

1540 7 ".ET JE VOUS PAPPELLE OUE EN-DESSOUS DE 130 OUVRIERS DI 

DRONT ET*[ 

1330 7 - COULERONT VOTRE ENTREPRISE" 

1360 7 "7 :7 ;7 * VOULEZ-VOUS VRAIMENT LICENCIER DES EMPLOYERS* I : INPUT B« 4 

DEGATS 



;CS>* ''VOTRE REPONSE SIGNIFIERA OUE LE C 



3530 *> [7 -ETES-VOUS D'ACCOPD AVEC I 

ONTRAT SERA S I GNE OU PAS " ( 

3560 7 *.JE VOUS RECOMMENDE LA PRUDENCEJLA PUB PEUT COUTER TRES CHER ' VOTRE REPON 

SE:-| : INPUT BS 

3570 IF B»-*0* THEN 3620 

3580 IF BSO'N" THEN 3550 

3390 7 "u": - ' !7 :7 17 !7 :7 * PUISOUE VOUS NE VOULEZ PAS TRAITER AVEC MOI 

,JE VOUS DITIAUREVOIR. *l 

3600 7 *JE NE SERAI PAS ETCNNE DE VOUS REVOIR TOUT A L ' HEURE " HE * HE ' HE " : FOR 1-1 

TO iooo:next l:GOTO 70 

3620 7 "Q" 

3630 7 !7 !7 *7 !7 !7 :7 * JE SUIS TRES HEUREUX OUE VOUS ACCEPTIEZ MON OFFRE.ON 

VOUS PETIRE " ! 
3635 Y-INT(RNDIOHHOOOOO) 

3640 7 Yl* FF POUR LA PUB. MAIS PUISOUE JE VOUS ACHETE VOTRE STOCK CA NE POSERA P 
AS *I 

3650 7 "DE PROBLEME" 

3651 7 *VOUS AVEZ * J ST I * PRODUI TS, COMBI EN VOULEZ-VOUS EN VENDRE " C INPUT A 
3633 ST-ST-A:IF 3T<0 THEN ST-0 : AG-AG- I 1ST -A ) #PR) 
3660 AG-AG-YlIF AG<"0 THEN 10000 
3670 AG-AG* (A--PR) :PA-PA-800 
3700 7 17 !? "IL VOUS RESTE *IAG{* FF* 
3703 FOR T-l TO 100:NEXT T 
3710 GOTO 70 
3720 END 
4000 7 *U* 

4010 7 17 !7 "7 :7 ' SUPER 1 !'!!' ' J • ENTENDS VOS EMPLOYES OUI FONT LA FETE' MAIS 
V0US'?V0US SEREZ RUINE SI*; 

4020 ? * VOUS CONTINUEZ DANS CETTE VOIE.ET BONJOUR LES DEGATS'ENFIN <SOUP!R),VOU 
3 AVEZ VOS RAISONS.* 

!? ;? * •(C«l*, VOULEZ-VOUS VRAIMENT AUGMENTER LES SALAI RES " ; : I NPUT 



GREVES INTE 



THEN I7SO 
* THEN GOTO 70 



1370 IF B»-*0 

1380 IF B«< >*l 

1750 7 "0" 

1733 7 *7 !7 !7 '.7 %7 17 "COMBIEN VOULEZ-VOUS EN LICENC IER" J : INPUT A 

1760 NE-NE-A-IF NE<130 THEN GOSUB 7000 

1770 ? I? " VOUS AVEZ DONC *INEl* EMPLOYES. BONNE CHANCE ••' ' 

1730 FOR Y-l TO 700:NEXT Y'GOTO 70 

1790 END 

2000 ■> *u- 

2010 SETCOLOP 2 , , 6: SETCOLOR 4 , O, 6: SETCOLOR 1,8,10 

2020 7 S7 • ACHAT DE MACHINES* 

2030 7 J7 %7 • PRIX DES MACHINES:" 

2040 7 * _NEUVES:_GROSSES: 120O FF' 

2050 7 ' _PETITES: 300 FF* 

2060 7 ' _OCCASI0NS:_GR0S5ES: BOO FF* 

2070 7 * _PET1TES! 400 FF * 

2090 7 " NEUVES OU D'OCCASES IN/0) ' \ : INPUT B« 

2100 IF B»-*N' THEN 2300 

2110 IF B«<-.*0* THEN 2090 

2120 7 "u* 

2130 7 :7 *7 :7 :7 [7 *7 'COMBIEN DE GROSSES 

2133 AG-AG- (PMAOG#C) : IF AG'=0 THEN 10000 

2140 7 'COMBIEN DE PETITES* i : INPUT AINMP-NMP*A 

2130 AG-AG- <PMAOP*CI : IF AG< »0 THEN 10O00 

2170 7 ;-J -IL VOUS RESTE *;AG(- FF.V0U3 AVEZ DEFENSE 

BONNE CHANCE " ( C« 

2173 FOR 1-1 TO 300!NEXT I 



4060 


IF B*-"0" THEN 4100 


4070 


IF B«0"N" THEN 4030 


4080 


GOTO 70 


4100 


-■ * u - 


4103 


X-INT IRNDI 1 (#100) 


4110 





LES SALAIPES 5ER0NT AUGMENTES DE 



(XI ' 



ffibonJOup les 



PSP& 



INPUT C:NMG-NMG*C 



(PMAOPfA) * 1PMA0G#C) 1 ' FF. 



4113 SE-SE*X 

4120 ? • LES SALAIRES SERONT DONC DE * I SE i * FF PAR EMPLOYE* 

4130 FOR 1-1 TO 900INEXT I 

4 140 GOTO 70 

4130 END 

4300 ? '0' 

4S10 7 (7 17 »7 :■> »7 ;■> * DM VOUS QUI ETIEZ SI BIEN, VOILA OUE VOUS VOUS 

BAISSEZ A DE TELLES *t 

4520 7 "CHOSES. ENFIN' 1S0UPIR) .VOUS AVEZ SURMENT VOS RAISONS." 

4330 7 'VOULEZ-VOUS VRAIMENT BAISSER LES SAL A IRES ' i: INPUT B* 

4340 IF B-.--0" THEN 4390 

4330 IF BSO'N' THEN 4330 

4360 GOTO 70 

4390 7 "0" 

4600 7 ;-> ;-> :-> \~> "CE N'EST PAS MOI OUI VA1S DECICER DE LA BAI SSE , J ' AURAIS PEUd 

DE VOUS RUINE' " 

4610 7 (7 *DE COMBIEN VOULEZ-VOUS BAISSER VOS 3ALA I RES' ;: INPUT C 

4620 SE-SE-CMF SE<370 THEN GOSUB 7000 

4630 7 -LES SALAIRES SONT DE 'ISEl' FF PAR EMPLOYES' 

4640 FOR T-l TO 1000:NEXT T 

4630 GOTO 70 

3000 7 -U-'SETCOLOP 2, 0, 12: SETCOLOR 1 ,0, 4: SETCOLOR 4,0,12 

3010 7 '7 S7 "JE VOUS PROPOSE DES ENTREPRISES ET DES TERRAINSiA TRES BON PRIX!). 
SEULEMENT VOUS DEVPEZ "! 

3020 7 'PAYER LES EMPLOYESt ENTREPRISES) . JE VOUS PROPOSE DES INDUSTRIES A 100,20 

0,300,300, lOoo, loooo" i suite page M 



JEU DE LA 



Le jeu de la vie est un jeu tres repute qui a connu de 
tres nombreux algorithmes plus ou moins rapides. Les 
regies de ce jeu vous sont expliquees dans le pro- 
gramme. Le programme propose a I'utilisateur de Ires 
nombreuses options et calcule les generations suivan- 
tes avec un aigorithme tres rapide. 
Cet aigorithme determine letat dune cellule avec le 
principe suivant: 

Multiplier par neuf la valeur de la cellule (1 = suivante, 
0= morte), ce qui donne ou 9. 

Ajouter les contenus des 8 cellules environnantes, 
consulter une table qui indique si la cellule change 
d'etat ou non a la generation suivante en fonction de 
sa valeur. Si celle-ci change d'etat, on modifie la valeur 
associee a la cellule (+ ou - 9) ainsi que les valeurs 
des cellules environnantes (+ ou - 1). 
Diverses options sont proposees a I'utilisateur qui peut 
par exemple faire un recentrage des cellules dans la 
grille ou alors calculer la generation N sans visualiser 
les generations intermedial res (gain de temps). 



Jean Marc DUHEN 
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n cursor le.HPRiNTTi i 

:M ORS08 lt,2i«IKT-S JEU OE Lfl UIE 

Itl CURSOR lB.StPRIHTI 

121 CURSOR 10.4 1 WIWTT~~ 

130 ="*>~"«faa_- j«u i* la t*U mi outt-i tonru uMt' 

140 PRlKT'l* -c- rft • 1'autonai* C*llul-.i-« i« ■' 

130 PRIKT-ClMiPv. *■* 
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210 PRINT --«rt*. ' 

220 3OSUB1450 
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270 PBIK"fldJ4C*m*s au rord. ou swd. a l'*»t, 0" 
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320 PRIHT* -' 
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348 PRIHT- ■ 
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398 PRINT* ' 
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*40 PRINT* ■ 

«38 PRINT*** 1* a txa«t*n*nt I 
468 SCSU91438 

478 »«II«T*f 

400 PRINT- MIr you* *u* l*s borat CO"«ur>i«u*W 

498 PRIHT-*n*,r* *ux "> <C'**l o dlr* «.u* 1*S e«t*4 * 

308 PRINT'droU rt toucn* *-. l*s cot** naut *t bo*' 

318 'P;^*"soi*rrt su*bos*s *tr* *n connunlcation 
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338 PRINT** l'*xl«rl*yr.)B- 

348 I(#nr'«P*o«ns* (OVM) i *iREP» 
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788 VT- 
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\/l C" 


Le 27 julllel. un nu 


mero 


198* RET^h 
1098 RE" 


\§ 1 !•■■■ 


quadruple pour l« prlx 


de 3 


1900 •©■ GEXRarirjH " 


w 1 


numiroB. 4 programmes 


1?19 REM 


w 1 LVm 


par ordinaleur, 64 paoes! 


192* cursor n.nn *-vT-S€f'-r.» 




24 francs chez votre 




1739 ■fKW.a£FT«'«»i5) 




crmnci de lournaux. 




1949 ;f cg/^ge arnoi 


798 a<T«y."*H)-«'T» , ;.J*M)*l 






1938 FOP 0*1 *n OTj-^E 


B98 MfDCT U.H 






1968 3OSuei&30 


B10 OEM ECfiiaiPE OE U) CELLULE 






1970 MEXT 9 


328 aRSO" J*3.T«2i»IWT'«- 






I960 CURSOR 19.23IPRW 


830 0rTtJ)«fl<T.J>*8 






1990 RETUW 


948 >«-"?•! 






2988 =ETt 


8» IF 'J'>9J".Toe>G0T0728 






2910 R£H LES BORDS SOW* SUPPOSES iT0£ ODJtCEKT 


868 IF REPt-'O" THENG0SDB2e:e 






2820 PET 


078 DEM 






2839 FOR J«l TO 33 


388 PET MEWJ 






2848 O(16.J*«)-fl'I6.J*C*:>*Or0.J*OC> 


i*98 I ^* 






2830 nM.J*Kl-OtI.J*CC)tflM7,J*0t) 


^TO H5*-PI&fTI(- ■♦STHS(«).4) 






2869 hCXT J 


918 K*-'(ir#iTI'' -*STR«'GE>.4> 






2078 FOR T*8 TO 17 

2898 n'.t.l-iC)-Q<r.l'X)'(l'T,36«K; 


?I8 CURSOR 8. 19 tPClNT" i r 






939 OJPS09 B.rOlPRI'iT'inGEH. SJI'JflKTE 

940 CURSOR 8.21'PRINT-t2iGE>*IPaTl'>i h 


Choixt IHBREiSEH.i'i 




2890 0!T.;5*OCJ-a'T.35*r/.>*fl'T-8-OC> 
2199 MEXT T 






939 CL'?S0O 8,I2:PRIHT-l3)CflOPOGE 


|-|r*»i-f1«I1* 




2118 PETLRH 


969 CURSOR 8.23iPRIHT-|4)FIM 


D0PMI)0O0C|*i 




2120 REM 

2130 REM SGCRPTIOM ETEIKTE 


975 C'J^SOR 2.2*iPRIHT*' * 






988 IF >*>e 30T02138 






2148 R£F 


990 CURSOR 26.281 It*UT"t»f 








2138 CWw 3*»T«<iHr . ™ — - — — ■ — ^ 


[089 »-y*-'LEFTS<M.l)) 






2160 CURSOR 3. 9iPRIKT'l SDCRRTIOM I' 


1918 IF ^R-8)*CR>4)TrCII998 






2170 CURSOR 3.18tPRIMT-| 1* 


1828 ON R 30SU6I498. 1979.2318.2238 






2100 CURSOR 3. lltPRIMT'l ETEIKTE 1* 


1839 IF R2*-'0' TVOCLBiaOT0478 








2198 UJZvJi 3il£lrxin: ^^ — — — — — — — — -. 


1840 IF R2f-'M- T>€M PRIMT'I'JPRIKT'RU BEUOlR'lEX) 




2208 00702230 


1038 90Sue2979 






2218 RETURN 


1060 80TO879 








1979 END 






2230 REM FIM OU JEU 


1088 RE71 






2240 REM 


1899 REN EftREUR 






2230 OJRSOR1.19iPRIKT'-a"i 


1100 REM 






2268 FOR T-I TO 6'PRIHT* 


1118 IF CJ-0)*'T«9)TVCM RETURH 






2278 HEXT 



1120 CURSOR 28.23IPRIMT* — 

1130 FOR T-l TO 300IMEXTT 

1140 CURSOR 20.23IPRIKT- 

1130 RETURN 

1160 REM 

1178 REM ECRITURE TfiSLEau 

1100 REM 

1190 PRIKT-B '! 

1200 REM 



^AZ80 



1218 
1221 

;2*e 

1235 

■,26a 

'.TTi 
:2?3 
12M 
I3M 
1310 
1324 
1330 
13481 
::39 
OH 
1370 
1380 
1390 
1488 
1418 
1429 
1439 
1440 
1438 
1460 
1478 
1490 
1490 

1500 

1319 
1329 
1339 

1348 
1338 
1360 

1378 



163* 
1649 
1630 

\ta 

167* 

um 

KM 

vm 

1710 
1731 

1730 
1740 
1730 
1760 
1779 
1780 

vm 

1880 
1010 
1020 
1030 
ISM 



rusic-ceco* 

FOR >1 TO 33 

IF J>9 T>€}<PRINT STR*nKT!J'10))l!9OTO1238 

PRIMT* *1 

HEXTJ O 

PRINT o 

MIHT - '1 r% 

FOB >1 TO 33 „ 

PRIKTSTRS(J-IHT(J/10)*18)1 "ti 

NEXTJ 

PRIKTlPRINT* r*1 

FOR J-l T035 

PRINT*-'! 

NEXT J 

PRIWT 

F0RT-1T0 16 

IF T>9 TrEJPRIKT T;iQOT01399 

PRIKT- *ITI 

PRIKT'l- 

NEXT T 

RETURN 

REM 

REM CONTIHUOTION 

REM 

PRINT-fl- TOM! sur i#* t0^^cn• "sour C 

SET M 

IF OS." THEN1469 

RETURN 




=C9CRIT>t-E DE COLCUL 



' '.-'. :. ; ■>:. ■■:*.'■-• calcul* lo t*r*rotiOn :-:.:'■.' *n uttlisant ■ 

► toBl* *ui dorr* lo ^fll*ur d* la cos* couran-* «n fomtio" 4* It 



■ 9-CCflSE COURflNTE)'<LES HUIT CftSES UOISIHES) 
9-<N0<-17 



9E-OE"! 

EC-8iK>37 

IF 3E"IKT(3EX2>*2 THEN EC-37lC>C-« 

FOR J-* TO 36 

FOR T-* TO 17 

fl<T.J*0C)-8 

NEXT T.J 

FOR J-l TO 33 

FOR T-l TO 16 

MXKT.J-CC) 

IF VtE(H0>-l 3OTO1040 

IF MO-3 TI€)T-Te-NB*2 

FOR «*-l TO I 

FOR U--1 TQ 1 

F1-HF2— 8 

[F NO-3 THEN Fl"Hf2-*S 

PEH IFtT*U<0)C*r"J>17iC!=a*KOiOP'J*H>36;SOTO 1400 

fi'T*O.J*OC+«)-*<T»';,J*OC*H)*FI 

NEXT O.H 

P/T.J*0C)-O'T.J*DC)+F2 

S(T.J*OC)*0(T,J*K)*NO 

NEXT T.J 

IF RgPf.-r S09J&2938 

ttmrw 



2280 CURSOR 8.21'PRINT-iJ0ULE2 'XUS RECOMrTEHCEP JT 
2290 IHPUT 'REP0N3E (0^N> i'1R2* 
2380 RETURN 
2310 REM 
2320 REM CaOROQE 
233* REM 
2348 EC-* 

2330 IF6EOINT(9Ex2)*2 THEN EC-37 
2368 &F-*iLF-8U-0i"Jl"t 
2378 Ll«* 
2388 J-J+l 

239* IF J-36 THEN02-01'L2-Llt80T0248e 
2488 T-0 
2410 T-T*l 

2420 IF Cfi<T.J*eC>'9>»CT'l?> SOT02419 
2439 IF T-17 THEHL1«L1»H0OTO2380 
2448 IF 01-1 THEN L3-L1 
2430 IF L!>LF THEN lf-LHDF-01 
2460 Ol-J+1 
2470 60T02378 
2400 REM 

2490 REM TRBHSLPTION H0RIZ0NT9L 
2388 REM 

2318 REM Df-OEBUT OE Lfl PLUS ORflNOE ZOHE UICE 
2320 REM LF-LOHOUELR OE Lfl PLUS GSflNDE 20X UIDE 
2533 IF '_2*L3>LF THEN Lf "L2-L3! 0F"02 
2348 0e-OF*IKT(LF^2)-l 
2338 FOR T-l T0I6 
2360 FOR J> 1 TO 33 
2378 B(J)-0!T.J»EC) 
2388 NEXT J 
2398 FOR J-l TO 33 

2688 fl<T,J*EC)-8''INT(rje*J-IKTr<D»*J)''361»33>) 
2618 NEXT J 
2628 NEXT T 
2630 REM 

.2648 REM CflORBOE HORIZONTAL 
■2650 REM 

2660 0F-81LF-8IT-31D1-1 
2670 Ll-8 
2688 T-T*l 

2698 IF T-17 THEH02-0HL2-LHQOT02788 
2780 J-8 
2718 J-J*l 

2729 IF 'Q'T.J*ECX9)-CJ<36> Q0TO2718 

2739 IF J-36 THENL1-L1*1'30T02688 

2740 IF Dl-l THEN L3-4.1 

2730 IF L1>LF THEN LF-LHOf-01 
2760 Dl-T*l 

2778 00702678 

2789 REM 

2798 PEM TRANSLATION UERTIChLE 

2890 REM 

2810 IF l2*Unf THEN Lf«U-UiDf-02 

2829 &&-OF*tN7'Lfr2> 

2839 FOR J-l T033 

2048 FOR T-I TO 16 

2350 a(T)-fl<T.J*EC) 

2868 NEXT T 

2878 FOR T-l TO 16 

2088 p(T.J*£C>*8<INT(W*T-lrfl'r'I**Ti/17»-16>> 

2890 HEXT T 

2998 MEXT J 

2918 RETURN 

2928 REM *.+♦+♦***♦♦♦ ••**.♦*♦♦ ».*»**.»* 

293e PEM * * 

2940 REM * ECRITURE D€S CELLULES • 

2930 REM » ♦ 

2X9 ten *».».**.«*.*♦♦♦**"♦***•*♦* 

2978 FOR J-l '0 33 
■2988 FOR T-l "0 16 
;*»g J? 0'T.;*OC)>8 THEMOJRSOR J*3.Tt2iPRINT---iOOT 
3889 C.»SOR J*3.T'2iPRIMT- * 
3810 NEXT T.J 
3928 PE-UR" 



TEST MEMOIRE 



Votre m^moire flanche^ Vous ne savez pas compter 
jusqu'a dix? Alors profttezde vos vacances et de ce 
petit programme pour muscler votre cerveau! (Et oui. 
lui aussi a besoin d'exercice...) 

J.Luc MESPLE 

Ce programme propose 2 jeux: 

Le premier est un test de memoire. II consiste a repeter les chiffres 
que I'ordinateur afliche de plus en plus nombreux (taire SHIFT A). 
Le deuxieme jeu qui est egaiement un petit lest de memoire. 
consiste a determiner la position de signes qui apparaissent sur 12 
positions drfferentes de I'atficheur Faire SHIFT S. 



Le 27 juiliet, un numero 
quadruple pour le prix de 3 
numerot. 4 programmes 
par ordinaleur. 64 pages! 
24 francs chez votre mar- 
chand de journaux. 



9 C 



&\ 



iO:"6' , Z*i:PMUSE 

" eeTEST DE 

MEM01PE4*" 

20: IF X-IIIT XH) 

IlipiJT -IJM 1(0 

J.V.P.) 

30-OOSUB 400<B< 
Z)-Y 

;-;:BEEP 1 

jfj; FOP Y=1T0 2 

"WrWJE '■ 

"|fl<V) 
60»HEXT V 
65: BEEP 1 [PAUSE 

- A VOUS." 
70s FOP V*1T0 Z 
^OtlrlPiJT "== "I 

II 
90i IF ti w 1 
GOTO 200 
100JICZT V 
HQtZ-Z+UGGTC : 


200( PAUSE EPOEij 



2I0:P«JSE "C'ETh 

IT :■•■■»■ 
22CCPPI1IT "VOUS 

AVE2 temu ■; 

Zf •COUPS" 

230*IF Z<SPR!HT 

"L E; : ' 

■GOTO J00 
240JIF Z<9PR1HT 

" EOF " '■ : 
GOTO JOO 
250: IF 2'«12 

PRIHl " PA8 

-n 
oo 

260: IF Z 
PRIMT 

ETES TPE'i FO 
pi ! - 

soonNPui 

ijTOE PARTIE1 

CO H>-I8I 
310: IF SI-"0" 

GOTO 10 
520IPAU8E " Mi P 

EVOIR. ■ 
SJOiEHD 
400lX"237-3*X*7. 

22571*: I : - 




1 
420:PETiJPl( 
500: -S- 
510: IF H-IHT 11=0 

IHPUT "UM HO 

MEPE S.V.P.J 

"SH 
520*S"0-T«-fl 
520:H-237.3*H*7. 

2357I5H'I=H- 

IltT II 

540t}f-IHT -».i. - 

♦ 1 



570<S-S*1 
5901 BEEP 2 

-,-r,: HtfUT -fu: IT 

[OH?* -F 
600" IE •*■ rTHEH i 

70 
-il0:EEEP ] 
^20:F0P I=IT0 2 
6301 PAUSE " RrtTE 

■ C'ETAIT' '■: 



00 
. ■ : - ' 
670* BEEP 3 

■Pfl .I " EXAC 

Ti-iT-T+li 

GOTO -i50 
SSOiBEEP 5 
700" PAUSE " TEPM 

INE." 
710: BEEP 3 
720IF0R t-lTO ■• 
7301 PAUSE 

AI« RE 

740> NEXT I 
750: BEEP I 
760! IHPUT 'OH RE 

COWL.' ■ 



ITPETiJPH 
*t PAUSE " 

ii":peruRH 



■izt 



770: IF Z» 

THEH 510 
•801 ENS 
SOl-PM'/SE ' 

PETUPtl 
8021 PAUSE " 

:PETUrll 
303 'PAUSE '• 



0- 



II" 



BflRETURH 

3IUPAIJSE " 



F*!2i PAUSE ' 

II' 



POLEPOSmON T 




MOON PATROL 

Qui neconnall la petite jeep 
bondissante au-dessus des 
crateres. pulverisant les ro- 
ckers, abattant les meteori- 
tes, evitant mines, tanks. 
ovnts et piantes carnivo- 
res ? Deux niveaux : novice 
et expert de 26 etapes cha- 
cun. Tous les 10.000. 30.000 
et SO 000. vous gagnez un 
venicuie de patrouifte sup- 
ptementaire Objectif : pro- 
tection ptanete Lune ! 



ILS SONT TOUS LA ! 

Retrou vez chez vous les superstars desjeux d'arcade d'ATARI, 
Hs sont tous la : des celebrissismes PAC-MAN ou GALAXIAN 
jusqu'aux recents JUNGLE HUNT ou POLE POSITION. Le gra- 
phisme, les couleurs, la rapidlte : tout y est, II ne manque que le 
monnayeur et V ambiance enfumee des cafes I 



CENTIPEDE r 



ETTOUJCURS 
10 % DE REMISE 
POUR LES ABONNES ! 



GALAXIAN 

D'innombrabJes hordes 
dextra-terrestres en rang 
d'oignons se pressenl sur 
tous les ecrarts de tous les 
ordinateurs du monde pour 
se faire descendre par des 
tirs de laser implacables. ils 
sont tous des enfants de 
SPACE INVADERS et de 
GALAXIAN. mais qui a ja- 
mais tart mieux que les es- 
cadrons de GALAXIAN qui 
attaquent de tous cotes et 
obeissent a un chef ? A bas 
le recliligne ! 



ROSOTRON 

Plus on avance dans les ta- 
bleaux du jeu et plus il y a de 
monde pour vous attaquer 
et. comme il faul se depfa- 
cer et choisir la direction de 
tir de votre anti-robot laser 
gun avec le meme joystick, 
rl vous faudra un grand en- 
trainement pourarriveraux 
25.000 points qui vous don- 
nerons droit a une vie sup- 
plemental. 




DIG- DUG 

DIG-DUG. le petit mineur. n'a que son scaphan- 
dre et sa pompe a velo pour aneantir Pooka - la 
taupe nargneuse - en la gonflant d'airjusqu'a ce 
qu'etle ecfate Mais Fygar le dragon et ses freres 
cracheursde feu sont aussi la pour I'empecherde 
recuperer les fruits qui parsement le sous-sol. 
Peut-etre amvera-t-il a les ^eraser avec des ro- 
chers ? 



PORT GRATUIT ! 



CENTIPEDE 

La commande par boule 
qui actionne ce jeu dans les 
cafes est difficile a manipu- 
ler. Avec un joystick ou me- 
me avec le clavier le jeu est 
encore plus attrayant : Les 
mille-pattes zigzaguent a 
travers I'ecran. la puce dia- 
bolique seme des champi- 
gnons partout face a voire 
purverisateur de DDT. sans 
oublier les araignees sau- 
teuses et les scorpions ve- 
nimeux ! 




DEFENDER 

Difficile de prevoir d'ou va 
venir le coup, du haut, du 
bas. de la droite. de la gau- 
che ? Lequel des 14 enne- 
mis presents va attaquer !e 
premier ? Dois-je aller en 
avant ou en aniere, accete- 
rer ou freiner, voler en rase- 
mottes ou zigzaguer ? Utili- 
ser mes lasers ou une de 
mes trois smart bombes ? 
Aussi dur de gagner que sur 
['original mime avec le 
scanner ! 





MS. PAC-MAN 
La petiteamiede PAC-MAN 
a beau avoir une faveur rose 
dans les cheveux et userde 
tous ses charmes, ette n'en 
a pas moins les pires ennuis 
avec les quatre fant6rrtes 
qui la poursuivent. Et il lui 
faut, elle aussi. errBr dans 
un labynnthe en croquant 
des pastilles d'energle 
bleues. Ce n'est pas une 
vie. meme pour un glouton 
femelie ' 




DONKEY KONG 
Mario, le charpentier. es- 
saiedesesperementdarra- 
cher sa fiancee des pattes 
de Donkey Kong, le gorille 
geant qui la retient captive 
tout en haut dun amas de 
poutrelles brisees. Il lui taut 
affronter des cascades de 
tonneaux. demonter des n- 
vets. emprunter des ascen- 
seurs fous ou encore errer 
dans un dedale de tapis 
roulants charriant des ba- 
quets de sable. Dur. dur ! 




POLEPOSmON 

D'abord les essais pour sa- 
voir ou sera place voire bo- 
lide sur la grille de depart. 
puis e'est la course propre- 
ment dite, virages serres. 
crissements de pneus et 
accidents avec voitures en 
flamme ! Graphisme, cou- 
leurs et trois dimensions, la 
stardesjeux de cafes 'Trois 
niveaux de difficulte, deux 
vitesses et des compleurs 
partout ! 





JUNGLE HUNT 
Sauter dune liane a I'autre, 
depouiller des crocodiles, 
se faufiler sous des blocs de 
pierre. enjamber des ebou- 
lements et affronter de sau- 
vages cannibales alors que 
vous n'etiez qu'un amou- 
reux transi et oisif ? C'est 
peut-fttre la vue de votre 
petite amie en train decom- 
mencer a cuire dans cettes 
marmite qui vous a change 
ainsi ! 

STARGATE 

Plus rapide. plus difficile 
que DEFENDER, presque 
i mjouable ! Les ennemis 
sont innombrables. plus ra- 
pides et plus soumois les 
uns que les autres et I'hy- 
per-espace n'arrange pas 
les choses, elle ne fait que 
retarder votre desintegra- 
tion ! Esperons que vous ar- 
riverez tout de meme a sau- 
ver quelques-uns des hu- 
manoides qui comptent sur 
vous pour rentrer chez eux ! 



I 



TOUS LES JEUX FONCTIONNENT AVEC LE CLAVIER OU 
AVEC LES MANETTES DE JEU. 



JOUST 

A catifourchon sur une au- 
i ruche, une lance a la main. 
vous combattez les buzar- 
diers sauteurs, chasseurs 
et seigneurs. Mais ne 
croyez surtout pas que ga- 
gner une batailie suffit. les 
vaincus pondent des ceufs 
de frustration qui sont en- 
core plus dangereux si vous 
avez le malheur de les lais- 
ser eclore. La joute est ou- 
verte! 





TABLEAU RECAPITULATIF DES PRIX (PORT COMPRIS) 



PAC-MAN 

Leseul, I'unlque.l'incompa- 
rable : toujours copie. ja- 
mais egale ! 19 tableaux dff- 
ferents, de la cerise a la cle 
en passant par les citrons el 
les cloches- Blinky le rapi- 
de. Pinky le soumois, Inky le 
malm at Clyde qui vous 
coupe le passage, vous at- 
tendant. SI vous atteignez 
'0 000 points vous gagnez 
un tour gratuit et le record 
du monde est a battre ! 



\^^i^im^ 


*\ 


VIC 20 WOOUUJ 


315 


355 


335 


355 


335 


355 




355 


315 


335 


335 


335 




COMMODORE 

64 IMOOUt-E) 


345 


395 


365 


395 


365 


395 


345 


395 


345 




365 


365 




T.I. 99/4A moms 


330 




345 


375 




375 




345 




345 




345 




APPLE II ,»», 


380 


430 


400 


430 


400 


435 


380 


435 


380 


400 


405 


405 


405 



rBON DE COMMANDE A DECOUPER OU RECOPIER : 
SHIFT EDITIONS. 27. rue du Gal Foy 75008 PARIS 

f 

I 
I 



MONTANT * p«y*r 

date d* la command* : 

Pni. vnlatM* pom I* m»!#-«n *n stock, una (*<*ialna « p«-T.< J# M Data •** gvykw In 
I cm <i« ruotura rt* ttocK cfvtaua ranvov* *owi r>iM«<«a ^ 4 , 



NOUS AVONS BESOIN DE VOUS! 



Remptissez et renvoyez-nous ce questionnaire, cela 
nous permettra de faire un hebdo encore plus attrayant 
pour la rentr^e; c'est dfya vous qui dcrivez les pro- 
grammes et qui votez pour les gagnants des deux 
concours, c'est un peu normal que nous fassions 
connaissance et que vous nous donniez votre avis. 
non ? Et pour ne pas vous faire travailler pour rien, 
nous tirerons au sort 40 questionnaires qui gagneront 
une machine a calculer Casio ou un des logiciels du 
Soft-parade. 





20 MACHINES A CALCULER 
et 20 LOGICIELS A GAGNER. 



QUELLES AUTRES REVUES D1NFORMATIQUE 
LISEZ-VOUS ? 



Ce questionnaire est destine^ a un usage interne, it ser- 
vira a am6tiorer les prochains numdros d'HEBDOGI- 
CIEL. II est confidentiel et ne sera pas diffuse', sous 
aucune forme que ce sort. Vous pouvez, si vous le d6- 
sirez, remplir le bon de participation ci-dessous et parti- 
ciper au tirage au sort sans re'pondre au questionnaire. 
Des bons de participations sont egalement disponibles 
en Gcrivant a la redaction. Si vous voulez que votre 
questionnaire reste anonyme, ne remptissez pas le bon 
de participation mais rdpondez au questionnaire et ren- 
voyez-le nous.ca nous rendra bigrement service. 



De temps en temps 


Souvent 


Reguherement 













































Tilt 






















































Autre, lequel 







COMBIEN DE LOGICIELS POSSEDEZ-VOUS ? 



QUESTIONNAIRE LECTEURS envisagez-vous d'acheter un ordinateur ? 

DEPUIS QUANO LISEZ-VOUS HEBDOGICIEL? No „ n 



Depots le premier numero 

Depuis le numero (precisez le N* ).. 
C'est la premiere tots que je le lis ... 



Oui, quelle manque, que* modele 

ENVISAGEZ-VOUS DE CHANGER VOTRE ORDINA- 
TEUR ? 



Logiciels de jeux tapes par vous-rrteme ... 
Logiciels de jeux du commerce achates 
Logiciels de jeux du commerce copies . . . . 

Logoels utilrtaires tapes 

Logiciels utilrtaires achates 

Logiciels utilrtaires copies 

Logiciels protessjonnets tapes 

Logiciete prolesstonnete achates 

Logioels protessjonnets copies 



LISEZ-VOUS REGULIEREMENT HEBDOGICIEL ? 



Out. touts* les semaines... 

Oui. tousles 15 jours 

Oui. au motns una fois par mots.... 



c 

a 



Cast la premiere tois qua je le lis 

Non. Je ne le lis que de tamps en tamps 

COMMENT AVEZ-VOUS CONNU HEBDOGICIEL ? 



N^ G QUEL EST VOTRE AVIS SUR LES RUBRIOUES 

O^pOV^tHnrn^^^Maod^J^^^^^^^^^^.^^ D'HEBDOGICIEL ? 

POSSEDEZ-VOUS DES EXTENSIONS POUR VOTRE 
CONSOLE? 



Par un stand du Sicob Q 

Par un stand de Micro-Expo D 

Par Sciences et vie Micro _ D 

Par Micro 7 - Q 

Par 36.000 Micros de McroW D 

Par un autre journal, lequet D 

Par une emission de Tele, laquelle D 

Par une emission de Radio, laquelle D 

Par des amis D 

A fecoie, au rycee, a runrversrte D 

Dans votre activrte professionneile □ 

En le decouvrant chez le marchand D 

Par un autre moyen. lequel D 

OU VOUS ETES-VOUS PROCURE CE NUMERO ? 

Je I'ai achate dans un toosque .. ... D 

Je I'ai achate dans une maison de la presse D 

Je suis abonne D 

C'est le journal de mon dub d'mformatique D 

C'est le journal de I ecote O 

C'est le journal d'un ami O 

C'est une photocopte a 

Je I'ai eu par un autre moyen. lequel D 

OU ACHETEZ VOUS HEBDOGICIEL ? 

Toujours au meme endroit D 

N'importeou D 

Je le trouve tres facilement D 

Je le trouve drfficilement D 

Ou habrtez-vous. villa et departement D 

QUI LIT VOTRE HEBDOGICIEL ? 

Je suis le seul a le lire D 

Une autre personne □ 

Plusieurs personnes, combien 

QUE FAITES-VOUS DES PROGRAMMES D'HEBDO- 
GICIEL ? 

Je les tape toutes les semaines O 

Je les tape regulierement D 

Je les garde pour les taper plus lard G 

DEPUIS COMBIEN DE TEMPS TAPEZ-VOUS DES 
PROGRAMMES INFORMATIQUES ? 

Plus de 2 ans D 

De 1 a 2 ans □ 

Plus de 6 mois CD 

Moins de 6 mois O 

SUR QUEL MATERIEL TRAVAILLEZ-VOUS ? 

Sur du materiel qui m'appartlent O 

Sur du materiel que Ion ma prete O 

Sur le materiel de mon ecole O 

Sur le materiel de mon club d'informatique D 

Sur le materiel de mon lieu de travail D 

SUR QUEL ORDINATEUR TRAVAILLEZ-VOUS ? 



Non 

Oui, 

Lecteur de cassettes, marque et mode to 

Television noir et Wane, marque et modele 

Television coufeurs, marque et mod e l e 

Monrteur noir et bianc, marque et modele 



Monrteur couleurs, marque et modele.. 

Un lecteur de disquettes, marque et modele 

Deux lecteurs de disquettes, marque et modele .. 

Imprimante thermique, marque et modele 

Imprimante graphlque. marque et modele 

Imprimante a impacts, marque et modele 

Imprimante a marguerite, marque et modele 

Modem, marque et modele 

Autres. lesquels. marque et modele 



BON 


MOYEN 


NUL 






























































Format du journal 







ET ENVISAGEZ-VOUS D'ACHETER DES EXTEN- 
SIONS ? 

Non D 

Oui, did a tin octobr© 1984 Q 

Oui, d'ici a la fin de I'annee 1984 q 

Oui, dans le premier trimestre 1985... a 

Oui, plus tard o 

Si oui, quels seront vos achats ? 

Lecteur de cassettes, marque et modele 

Tel6vision noir et bianc, marque et modele 

Television couleurs, marque et modele 

Monrteur noir et Wane, marque et modele 

Moniteur couleurs, marque et modele 

Un lecteur de disquettes, marque et modele 

Deux lecteurs de disquettes. marque et modeie 

Imprimante thermique. marque et modeie 

Imprimante graphique. marque et modele 

Imprimante a impacts, marque et modele 

Imprimante a marguerite, marque et modele 

Modem, marque et modele 

Autres, lesquels, marque et modeie 



QUELLES SONT LES RUBRIOUES QUE VOUS Al- 
MERIEZ VOIR RAJOUTEES A HEBDOGICIEL ? 

Formation au basic O 

Formation a I'assembleur a 

Formation d un autre langage. lequel 

Une autre rubrique. laquelle - - - 

Une autre rubrique, laquelle 

D'UNE FACON GENERALE QUEL EST VOTRE AVIS 
SUR HEBDOGICIEL ? 






CONTINUEREZ-VOUS A LIRE HEBDOGICIEL ? 

Oui, regulierement D 

Oui, de temps en temps D 

Peut-etre D 

Non, pourquol Q 



QUELS PROGRAMMES D'HEBDOGICIEL TAPEZ- 
VOUS? 

Les programmes pour mon ordinateur Q 

Je les tape tel quel Q 

Je les ameliore a 

J'adapte les programmes des autres ordinateurs a 

Je travaille seul o 

Je travaille avec d'autres personnes Q 

QUEL EST VOTRE NIVEAU ? 

Debutant D 

Amateur initie D 

Amateur edaire Q 

Protessionnel D 

QUEL LANGAGE CONNAISSEZ-VOUS ? 



QUI ETES-VOUS ? 

Sexe masculin O 

Sexe femlnln D 

Votre age 

SI VOUS ETES ELEVE OU ETUDIANT, 

votre classe 

I'activite professlonnelle de vos parents 



SI VOUS TRAVAILLEZ, 

votre profession , 

votre secteur dadtvite 

votre niveau d'etudes 

votre niveau de remuneration annuenie... 



Marque.. 
Modeie.. 



Debutant 


Chevronne 


Protessionnel 




















Logo 




















LSE 






Autre, lequel 








BON DE PARTICIPATION AU TIRAGE AU SORT. 

NOM: 

PRENOM: 

ADRESSE: 

CODE POSTAL: 

SI JE GAGNE UN LOGICIEL AU TIRAGE AU SORT, 
JE CHOISIS DANS LE SOFT PARADE LE LOGICIEL 
SUIVANT: 



DEUX SUPER-CONCOURS PERMANENTS 

10000 francs de prix au MEILLEUR LOGICIEL du MOIS et un VOYAGE EN CALIFORNIE 

au meilleur logiciel du TRIMESTRE. 



Un concours d« plus ! 
Rien de bien origins! dans cette 
formula, pourtant nous es- 
tayons de (aire quelque chose 
if different : nous organisons 
in concours permanent tous 
es mois et tous les trimestres ! 
Et avec des prix dignes des pro- 
grammes que vous allez nous 
envoyer I 

3e plus, ce seront les lecteurs 
eua-memes qui voteront pour 
eurs programmes preferes sur 
la grille recapitulative men- 
MM. 

Pas de Jury, pas de decision ar- 
bitrage. HEBOOGICIEL n' inter- 
vena nt que dans le choix des 
programmes qui devront etre 
ORIGINAUXetFRANCAIS.Si 
votre programme n'est pas tout 
a fait au point, un de nos spe- 
cialistes vous dira comment 
I'ameiiorer pour pouvoir nous le 
proposer a nouveau. 



Pour parliciper. il vous suffit de 
nous envoyer vos programmes 
eccompegnes du bon de parti- 
cipation ainsi que toutes tes ex- 
plications necessaires a I'utili- 
sation de ce programme. 
Bonne chance! 



Reglement 

ART. 1 HEBDOGICIEL organise 
de facon mensuelle et trimes- 
trielle un concours dote de prix 
recompensant le meilleur logi- 
ciel du mois et du tnmestre 
ART 2 ; Ce concours est ouver t a 
tout auteur de logiciel quelque 
sott le materiel sur lequel il es! 
realise. Lenvoi d'un logiciel en 
K 7 ou disquette accompagne 
d'un bon de participation de- 
coupe dans HEBDOGICIEL ou 
envoye gratuitement sur de- 



mande par la redaction de notre 
journal constitue lade de can- 
didature 

ART 3: La redaction d'HEBDO- 
G1CIEL se reserve le droit de 
selectionner sur la base de la 
qualite et de longmalite les logi- 
ciels qui sonl pubhes dans le 
journal 

ART 4 : Ce sont les lecteurs qui. 
par leur vote, determinent les 
meilleurs logictels mensuel et 
Irimestnel 

ART 5 Le prix alloue pour le 
concours mensuel sera remis au 
plus tard un mois apres la clo- 
ture du concours mensuel. 
ART. 6: Le prix alloue pour le 
concours trimestnel sera remis 
au plus tard un mois apres la clo- 
ture du concours trimestnel. 
ART 7 Le present reglement a 
ete depose chez Maitre Jauna- 
tre. 1. rue des Halles 75001 Paris. 
ART 8 ; HEBOOGICIEL se reser- 



ve le droit d'intefrompre a tout 
moment le present concours en 
en avisant les lecteurs un mois 
avant 

ART 9 La participation au con- 
cours entraine I'acceptation par 
les concurrents du present re- 
glement 

HEBDOGICIEL: 27. rue du Gal 
FOY - 75008 PARIS 



Sera declare gagnant le pro- 
gramme qui aura obtenu le plus 
fort pourcentage de vote par 
rapport a la totalite des pro- 
grammes recus pour unmeme 
or dinateur. 

Ainsi, pas de favoritisme pour 
les ordinateurs plus puissants 
ou tres diffuses. 



BON DE PARTICIPATION 



Norn . 

Prenom 

Age Profession 

Adresse : 

N* telephone : 

Nom du programme : 

Norn du matenel utilise 

declare etre I 'auteur de ce programme qui n'est ni une imitation ni une 
copie d'un programme existant. Ce programme reste ma propnele et 
j'autorise HEBDOGICIEL a le publier. La remuneratton pour les pages 
publiees sera de 1000 francs par page fun programme noccupant pas 
une page enttere sera remunere au prorata de >a surface occupee) 

Signature obligatoire : 

(signature des parents pour les mineurs). 

Le programme doit etre expedie sur support magnetique (cassette ou 
disquette) accompagne d'un descri p tif detaille du matenel utilise, 
dune notice d utilisation du programme Les supports des program- 
mes pubhes sont conserves , n'oubhez done pas den (aire une copie 



RECOMMANDATIONS AUX LEC- 
TEURS QUI SOUHATTENT FAIRE 
PUBLIER UN PROGRAMME : 

• Envoyez vos supports, mode 
d'empioi, listings et bon de parti- 
cipation dans une meme enve- 
loppe. 

Vous pouvez nous envoyer plu- 
sieurs programmes sur un meme 
support en I'mdiquant sur voire 
Bon de Participation. 

• N'oubhez pas et ceci est tres 
important, d'insenre sur vos sup- 
ports votre nom, le nom du pro- 
gramme et le materiel utilise. 
Notez dans les premieres lignes 
de votre programme, sous forme 
de REM. votre nom. le nom du pro- 
gramme et le matenel auquel il est 



destine. Nous pourrons ainsi re- 
peter facilement les listings, une 
fois sortis de I'impnmante. 

• Dupliquez plusieurs fois sur la 
cassette et a des niveaux d'enre- 
gistrement differents votre pro- 
gramme. Nous aurons plus de 
chance d'arriver a le charger si les 
magnetophones ne sont pas tout 
a fait compatibles. 

• En ce qui concerne les bons de 
participation, mettez votre arjres- 
se com plete et votre numero de 
telephone (si vous en avez un). 

• Pour tout envoi tel que "petites 
annonces". "abonnement" et 
"programmes" specifiez sur vos 
envelappes I'objet de votre cour- 
rier. 



• Expliquez les particularites de 
votre ordinateur et le moyen 
d'adapter votre programme a 
d'autres ordinateurs. 

• Vu le nombre important de pro- 
grammes similaires que nous re- 
cevons. evitez de nous envoye2 
les jeux sulvants : BIORYTHMES. 
MASTERMIND. PENDU. TOUR DE 
HANOI, CALENDR1ER. BATAILLE 
NAVALE. POKER. JACKPOT 
BOWLING, BLACK JACK. LABY- 
RINTHE. MEMORY SIMON. 421. 
OTHELLO, SOLITAIRE. LOTO. 



LA REGLE A CALCUL RE- 
COMPENSE LES MEILLEURS 
LOGICIELS EN OFFRANT A 
CHACUN DES PREMIERS 
DANS LEUR CATEGORIE UN 
OUVRAGE A CHOISIR DANS 
SON RAYON LIBRAIRIE (EDI- 
TEURS : BORDAS, DUNOD, 
EYROLLES, MASSON, NA- 
THAN. PSI, SHIFT, SYBEX). 



SOUIRELLE RECOMPENSE LE 
MEILLEUR LOGICIEL DU MOIS 
PAR 2 CASSETTES A CHOISIR 
DANS SA LOGITHEGUE. 



Les editions du CAGIRE offrent 
au meilleur logiciel du mois sur 
HP 41, leur Ifvre " au t our de la bou- 
de" de Janick TAILLANDIER. 



RECOMMANDATIONS 
PARTICULIERES 
AUX POSSESSEURS DE 
TRS80 

Indiquer avec precision le mo- 
dele d'ordinateur auquel le pro- 
gramme est destine. Si le pro- 
gramme est enregistre sur 
cassettes utilisez obtigatoire- 
ment la vltesse de 500 bands. 
meme sur un modele III. 
Dans tous les cas oil le pro- 
gramme est enregistre sur cas- 
sette il laut avoir utilise la Vi- 
tesse de 500 bands et non. en 
perticuller, la vitesse de 1500 
bands du modele 111. 





N»37 


N°38 


N°39 


N°40 


APPLE II 


DAO SUPERGRAPHE 


BELOTE 
DE COMPTOIR 


SCORE BUT 


NEW DOS. 


CANON X-07 


BATAILLE 
SOUS-MARINE 


TEMPLE 


CAR 


BATTLE 


CASIO FX 702-P 


ORDINATEUR 
DEBORD 


TIC TAC TOE 


PETITS CHEVAUX 


UASDU VOLANT 


COMMODORE 64 


TOUCHES 
DE FONCTIONS 


CHEMIN 


TRON 


ASSEMBLEUR 
DESASSEMBLEUR 


COMMODORE 
VIC 20 


PARA 


CAVALIER 


CHASSEUR SPATIAL 


A/F 


DRAGON 


ALCAPONE 


DESSINSETTEXTES 


YAHTZEE 


CLAVIER 
AUTO-REPEAT 


HECTOR 


JEU 
DES DRAPEAUX 


ASPIC 


BATAILLE 
NAVALE 


4 JEUX POUR 
UNJOURDEPLUIE 


HP 41 


CALQUE 


FICHUTIL 


COMBAT 


TAROT 


ORIC1 


FEUX CROISES 


PILOTS DE CHASSE 


COSMORIC 


INVASION AVANT 
LAUBE 


PC 12-51 


LA TOUR SOMBRE 
DEMORDOR 


PLANEUR 


LABYRINTHE 
HANTE 


COMBAT AERIEN 


PC 1500 


SIMULATEUR 
DEVOL 


WARGAME 


POKER 


LETTRES 
ET CHIFFRES 


SPECTRUM 


FLIP 


MURENVRAC 


EXCALIBUR 


MONSTER PANIC 


MZ80 


MASTERMIND 


DRAPEAUX 


SUPER TIERCE 


MOTO 2000 


ZX81 


ASSAUT 


LABYRINTHS 


MOCROISES 


ZXMONOPOL 


TRS80 


MICRODIS 


APPRENTISSAGE 
DES LANGUES 


FORMULE 


CASSE-8RIQUES 


Tl 99/4 A 

(basic simple) 


MUTANT 


APPELLE CHAR 


SUPER HELICO 


MARIENBAD 


Tl 99/A A 

(basic etendu) 


PANIQUE 

A LA CUISINE 


REGATE 
OLYM PIQUE 


ALERTE ROUGE 


COAL PIT 


TO 7 


CIBLE 


CATAPULT 


POUS-POUS 


MAISON NOIRE 



AUX URNES ! 

Abandonnez quelques instants vos claviers et prenez vo- 
tre plus belle plume pour remplirle bulletin devote ci-con- 
tre. La redaction d'Hebdogiciel compte sur vous ! 
La marche a suivre est simple : 

- Reperez dans la grille ci-contre le programme pour le- 
quel vous voulez voter ainsi que celui pour lequel vous vo- 
tez en second (le second nous permettra de rendre plus 
equitable la formule de choix du gagnant), 

- Reportezlenom de ces deux programmes surle bulletin 
de vote. 

- Inscrivez vos nom et adresse sur le bulletin de vote. 

- Expediez-le a HEBDOGICIEL, CONCOURS MENSUEL, 
27, rue du General Foy, 75008 PARIS, avant lejeudi 30 Aout 
a minuit. 

II est fort probable que ceux qui participent au concours 
feront voter leur papa, leur maman, leur cousineet la tota- 
lite de leurs amis et relations pour leur programme. Nor- 
mal ! Mais comme chacun d'eux fera la meme chose, cela 
n'est pas bien grave ! Toutefois. toujours dans un souci 
d'equite, nous n'accepterons que les ORIGINAUX du 
BULLETIN de VOTE ; pas de photocopies, cela serait trop 
facile ! 



BULLETIN DE VOTE 



DATE LIMITE DEN- 
VOI DES BULLETINS 
DE VOTE : JEUDI 30 
AOUT MINUIT 



A renvoyer avant le 30 Aout minuit a HEBDOGICIEL. 
concours mensuel, 27 rue du General Foy, 75008 
PARIS. 

JE VOTE POUR LE PROGRAMME SUIVANT : 
NOM DE LORDINATEUR : 

NOM DU PROGRAMME : 

JE CLASSE SECOND LE PROGRAMME SUIVANT : 
NOM DE LORDINATEUR : 

NOM DU PROGRAMME: 

NOM ET PRENOM: 

ADRESSE : 



CHnpilFTIR! Elude Runner 




REVENDEURS 
NOUS POUVONS VOUS 



UN 



FOURNIR TOUS LES LOG) 
CIELS DE CETTE PAGE 
TAPIF PREFERENT1EL N HE 
SUEZ PAS A NOUS CONTAC 
TERAU:16{l|294.2B-50. 



DEMANDEZ LE PROGRAMME 



Achetez vos logiciels les yeux fermes, nous les avons testes pour vous 



y\£ 






Nous avons lefecl/onne pour vous les meilleurs logiciels actuellement dtsponlbles en France. Nous ne 
pretendons pas que cette llste est complete et definitive el it etl evident que nous / rajouterons teg j- 
lierement des programmes au lur et a mesure que nous les testerons. Pourtant. vous chercherei en 
vain certains programmes qui joulssent d'une bonne reputation et qui se vendent turtout grace a la 
publiclte et aux conseils des vendeurs qui ne peuvent pas connaitre tous let logiciels dlsponlbles. 
Nous avons classe a part les logiciels educatifs et. par soucl d'honnetete, nos propres produrts : les 
Hebdogtclel Software. 

Lesprix sont, nous I'esperons. les mellleurs du marcfte surtout pour les abonnes - anclens et nouveaur 
- qui bencticlent en plus d'une remise de 10 %. SI vous etes nombreux a nous suivre dans cette expe- 
rience nous pourrons rapldement arrlver a talre balsser les tarils des tournlsteurs pour atteindre 
I'oblectil que nous nous sommes llxe : ramener les prix a une plus juste valpurj 
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H«l 



GAMORD 



Le thfcme du jeu, ciassique, va vous opposer a de mul- 
tiples pieges: dragon, oubliettes, portes spatiales, cof- 
frets en tout genre. ..Et meme le seigneur des lieux. qui 
retient prisonniere la princesse que vous, vaillant et 
preux chevalier souhaitez delivrer. 
Qui sauvera la princesse, avec un solde d'energie 
maximum? 

Bruno HANNIQUET 

La r6gte du |eu (lignes 6530 a 6558) est en caracleres ordinaires. 
pour commodite de reproduclion, mais doil elre enlree en video in- 



GOTO 9580 permet la sauvegarde du programme. 



Le 27 lulllet, un numero 
quadruple pour le prix de 3 
numeros. 4 programmes 
par ordinateur. 64 pages! 
24 francs chez votre mar- 
chand de journaux. 



7*81 



ecrit 






en£S en uideo inuersee; 


LIGnC 


CASACTEAES 


a. 


. GAnORO" 






349. 


. "OEPlACEHENT AuTORISE" 


41«. 


."ATTENTION flu MUR ... SI 




UOUS INSI3TEZ UOUS 




MOuSnez" 


505. 






LE uahpire s affute les 




CANINES. . . " 


549. 


."LE SPECTRE DC L"AU-DELA 




UOUS SUIT DE PRES" 


66a. 


.'FIN DE PARTIE" 


6?a. . 


. UOUS ETES MOAT" 


1140. . 












ssia. . 


."0U6LIETTE" 


2619. . 


. ANCIENNE OUBLIETTE" 




. -SORTIE TOUR NORO-EST" 


ae?a. . 


. HA. HA. HA TU TE REPLIES 




HlSEAABLE" 




. "PFUII.. Tu ES UN CHEUR 




LIER COURAGEUX, TU M AS 




BATTU" 


336a. . 


.'LA PRINCESSE" 


42ia. . 


. "UE SUIS 0AH0RO." 


4*ia. . 


."TU AS PERDU" 








. HEILLEURS UOEUX..." 




. • " 6639. . "P" 6689. ."7" 


5710. . 


. "»" 6733. ."0" 6744. ."0" 



OUET 



S Print at a,-, , 
3 PRINT AT 19, a* 

■ print at 29 ~ 



"BRUNO HANNI 



s print at ai.ai, - 

A SOT ut lST i a a ■ '• 1 1 



_ print at __ 
la recle du ueu ?" 

7 PRINT TAB ie,"0 OU N" 

8 INPUT Rt 

9 IF RS»"N" THEN GOTO 12 

:« gosub &<sea 

la cls 

sa let 5.399 

75 PRInTTTt - - 

7B PRirrr at 

89 PRINT AT 

99 FOR 1-1 T_ . 

95 PRINT TAB 1, 
198 NEXT I 

iea print at ia. 



SSIN DUCHATEAU, 

i:fi;Qi — n 



183 PRINT AT 13,8, " 
IB* PRINT AT 14,9; " 



188 PRINT RT 4,37: 

186 PRINT AT 7,18, 

186 PRINT RT 6,18, 

198 PRINT AT 8,18, 

193 PRINT AT 13,13 



■ 



OF. UTIL 



-is 


aosue 


1999 


■<\t. 


GO sue 


1599 


:■*'. 


GOSUB 


1888 


ii5 


GOSUB 




<zz 


GOSUB 


a899 


• *2 






i*.z 


GOSuB 




*;t. 


GQSUE 


1198 


■*'.?. 




RT 3,37, 












•9 


XJ 


PRINT 


AT 16,8, 



3*3 PPlNT RT A,B;" " 

368 IF INKEYS-"" THEN GOTO 388 

369 IF INKEYS-'S" THEN LET B -8 
1 

379 IF 1NKEV«."6" THEN LET A-A 
1 

389 IF INKEYt" "7" THEN LET A«A- 
1 

399 IF INKEY«-"6" THEN LET 8-0* 



TM8N PRINT AT 16,8 
RCU3SOPO. .'• 

394 OOSUB 9389 

396 IF (A-7 AND B 
THEN GOTO 39 8 

481 REM ■■PPQTECTION DU MUR 

493 IF A¥7AN0 0-11 THEN GOTO 



484 IF A-7 AND 8-19 THEN QOTO 4 
39 

OR (A-13 



497 IF («»13 AND D-9) OR IB-13 
AND 8-191 THEN GOTO 439 

498 IF (Aal AMD 8-3) OR tfl-I AN 
D 6-11 THEN GOTO 438 

499 IF (A. i AND B-9) OR IA-1 AH 
0-19) THEN GOTO 439 

418 IF IA-1 OR 6-11 OR IA» 13 OR 
"I PRINT AT ia,i,jun 



... IA-13 OA 
B-18) THEN G03U6 9899 
41S IF i-i.l OR 8*1) OR (A-13 OA 
fl-19) THEN LET 3-3-39 
418 IF (All OA 6(1) OR (R>j14 
R B>«1U THE N GOTO 588 
435 REH BiSrESTS OE POSITION 
439 GOSueTaaa 

439 IF A«M1 AND B-Nl THEN GOTO 

2388 
489 IF (A-U AND 8-Ul OR IR-U1 A 

ND B-Ul) THEN GOTO 3583 
469 IF Ifl.XX AND B-YY) OR 1A»XY 
ANO BiYX) THEN GOTO 3688 
478 IF A-Xl AND B-Yl THEN GOTO 

3988 
475 IF A-X3 AND B-Y2 THEN GOTO 

3288 
468 IF A-X ANO B-Y THEN GOTO 35 

88 
465 IF (A-PP AND B-QO) OR lA-OP 
AND 6-PO) THEN GOTO 2889 
498 IF iH.ua ANO B-U2) OR EAiU3 
AND B.U3J THEN GOTO 2688 
399 IF (A-GG AND B-GA) AND X-9 

THEN GOTO 4398 
518 IF (A-Cl AND B-C2) OR (AiC3 
ANO 8-C4) THEN GOTO 218a 
529 IF A=A2 AND B=A3 THEN GOTO 

2898 
578 PRINT AT 18,8, "SALLE UlDE" 
568 LET 3-S-18 

~ AT 18,9, 



3168 

2179 
21S9 
TIGU 
2163 
UNIT 
3194 
21 85 
2 189 
3198 
COF. 
2192 
2133 
2195 
2303 
2318 
LE. . . 
2213 
3317 
3232 
2225 
2239 
3235 
2248 
2245 
2589 
2519 
2515 

251' 
2550 
2539 
2548 
2545 
2547 
2550 
2579 
2699 

aeif 



G0SU8 9289 

GOTO 698 

PRINT AT 16,9. "UOUS -»0U5 FA 
EZ INUTILEHENT ' 

PRINT AT 17,8. MALUS DE 59 

5" 

LET 3*5-58 

OQSUe 3288 

GOTO 689 

PRINT AT 18.9. RI6N DANS CE 
FAE -18 UNITES' 

GOSUB 9388 

LET 3-S-18 



GOTO 69 8 
REH HfPClRTE 
PRINTRT IS .8, "PO 



RTE 5PATIA 



PRINT "NOU'JEO 
GOSUB 958J 
Pa INT AT A.B, 
LET A. INT (AN 
LET 6-INT (AN 
PRINT AT A.B. 
GOSUB 1388 
GOTO r" 



TEAU 
PRINT AT A . 
LET A-7 
LET 6-9 
G0SU6 9398 
PRINT AT A, 
GOSUB 9288 
LET S-5-18 
GOTO 699 



(CHUTE ^ANS^uB^ieT-E 

at is. «. xomcrjutD 

"Rrrouc a l entree c>u 



REH ■■OuBLlETTESeP 

pnir(?AT i6,o. azran 




689 PRINT AT 3 ,27, S 

518 IF St-9 THEN GOTO 658 

628 IF A-7 AND 6-11 AND X-S AND 

Y-28 THEN GOSUB 5988 

638 GOSUB 4888 

635 GOSUB 1188 

649 GOTO 34 9 

649 AEH ■■FIN DE PAATIE 

6S9 PRINTAT X,Y "*" 

888 PAINT AT " 



668 PRINT AT 19 
9" 

678 PRINT AT 29 

689 G0SU8 9599 

698 PRINT AT 38,3, "PQUA REJOUER 
APPUYER SUR UNE" , '* TOUCHE - ' 

695 PAUSE 4E4 



3628 FOR T-l 

2335 NEXT T 

3B31 IF INKEY4-" 

2848 IF lNKE/«-" 
9 

2658 GOSUB 9289 

2868 LET r — 

2878 IF 





799 GOTO 1 

1899 REH ^MhISE EN PLACE 

■B>RINCE5SE 

1818 LET xTlNT (RN0*11j*2 

1820 LET Y-INT (RN0.7) *3 

1838 PRINT AT X A , "■'• 

1840 RETU RN 

1188 REH liBCOFFRETS HAGIOUES 
1118 LET Cl7l 

1138 LET C3-10 

1130 LET C3-13 

1138 LET C4«19 

1140 PRINT AT Cl.CS, "■" ; AT C3,C4 

1189 RETU RN 

1199 REM BiBPOATES SPATIALES 

1318 LET Ml-INT (RND»8» *4 

1316 LET Nl-INT [RN0*5)*4 

1338 PRINT AT Ml,Nl;"i" 

1249 RETURN 

1388 REM I — 

1519 LET ' 

1315 LET Yl-1 

1329 LET X2-13 

1525 LET Y2-1 

1558 PAINT AT XI, Yl, 

1568 PAINT AT X3.Y3: 

1578 RETURN 

169B AEH I 

1618 LET __ 

1628 LET GA- 

1648 SETUAN 



1987 LET YU = INT (ftNt>»>_. .. 
1818 LET XX=INT (RND*7)+3 
1320 LET YY-INT (RND*S>** 
1639 LET XV. INT (AND*6l*a 
1849 LET YX-INT (RNO«S) +4 

1843 LET A2-INT (RN0«11)*3 

1844 LET R3-INT (RND»6»*3 
1849 PRINT AT R3,R3, "■" 

1859 PRINT AT XX,YY;"1" 
1665 PRINT AT XV,YUi"l" 

1860 PRINT AT XY,YX;"I" 
1878 RETU RN 

3898 REH ■■■0U6L IETTES 

2819 LET rjiXtl 

2029 LET U-Y*l 

2830 LET Ul-X-1 

2040 LET Ul-Y-1 

S045 IF U(»l OR U<-1 THEN GOSUB 

1089 

3047 IF Ul>-13 OR Ul>-18 THEN GO 

SUB 1009 

3838 PRINT AT U,U;"1" 

2060 PRINT AT U1,U1;"§" 

2878 LET 1J3-IMT (Rn6«5)*3 

2075 LeT U2-INT (AN0»7) *3 

20S0 LET U3-INT (AN0»4)+4 

2035 LET U3-INT (RND*4)*4 

2090 PRINT AT U3 ,U3, ■'■"; AT U3,U3 



THEN LET S-S- 
2985 GOTO 2928 

a9ia let s-s-ae 

3915 PRINT AT 15,8," HIEUX UA 
UT EUITEA LE COHBAT , FUYONS . . . 

8929 GOSUB 9290 
3939 GOSUB 1899 
2940 GOTO 69 

3000 REM iiiuTILISATION COrrAETS 
3039 PRINTRT 15,9, "UOUS UOICI D 
AN5 L""UNE DES DEUX SAllES ABRI 
TANT UN COFFAE HAGI- OUE . SACME2 
FAIRE DURER CE COM- PLEMENT 0"" 
ENEAGIE" 

3035 PRINT "1140 UNITES)" 
3039 GOSUB 9998 
3949 LET S-S+149 
3959 LET Xl»ia 
3055 LET Yl-24 
3968 PRINT AT X1,Y1,"B" 
3a68 GOTO 608 

3388 PRINT AT 15,8, "CE COFFPCT H 
AGIOUE UOUS DONNE UN5UPPLEMENT 
""ENERGIE DE 128 UNITES " 
3220 GOSUB 9909 
3330 .-ET 5.5*130 
3249 LET X2-13 
3258 LET Y2-36 
3355 PRINT AT X3,Y3;~«" 
3368 GOTO 69 8 

3588 REM pBDECOUUEATE PRINCESSE 
3510 FOR T-T TO 6 
3339 PRINT AT 16,3; "-■LA PRINCES 

3549 FOR J-l TO IB 
3538 NEXT J 

-- paint at is, a;' 



3669 I 
3579 I 



"S0RTON5 UITE 



3995 RETU RN 

2198 REM ■■UTIL. CQFF.MAGIQUES 
3118 LET CM-INT (ftNDjlStfl 
3111 IF CM.l THEN GOTO 2148 

2112 IF CH-2 THEN GOTO 2180 

2113 IF CH-3 THEN GOTO 2180 

2114 IF CH-4 THEN GOTO 3889 

3115 IP CH-5 THEN GOTO 3590 

3116 IF CH*6 THEN GOTO 3399 
2128 IF CH.7 THEN GOTO 2159 
2121 IF CH-8 THEN GOTO 3108 
2133 IF CM-9 THEN GOTO 3398 
5123 IF CM>-10 THEN GOTO 3198 

2144 PRINT AT 16,8, " AEN3E IGNEHEN 
T: LA PRINCESSE EST - ' 

2145 PRINT "A DEUX CASES DU POIN 
T OUI UA" 

2146 PAINT -APPARAITRE FUGITIUEM 
ENT" 

3149 FOR 1-1 TO S 
3151 PRINT AT X*3.Y.3, "■" 

2184 PAINT AT X *2 , Y *2 ; "l" 

2156 NEXT I 

2157 GOTO 688 

2168 PRINT AT 15.0, "BONUS DE 188 

UNITES" 
2165 LET S-S*188 



. NEXT I 
3588 PRINT AT 16,' 

DE CE CHATEAU" 
3565 G0SU6 1690 
3599 LET 3-5»158 
3888 LET X-B 
3819 LET Y-2B 
3812 LET U-21 
3B13 LET U-31 

3814 LET Ul-19 

3815 LET Ul-19 
3638 G05UB 4599 
3925 PRINT AT GG,GA,"a" 
3B39 GOTO 600 
4919 FOA 1=15 TO 21 
4838 PRINT AT I ,9, ■■ 

4838 NEXT 

4898 RETU RN 

4388 REM plB-UTTE AU EC G mmQRD 

- - i lT-tiniaMirTTni 

IL FAUT COHBATTRE.SI 

UOUS SERE2 LIBRE. SI 

SORT TC R 



4310 PRINT 
4515 PRINT 



1 RN 



_ ME TUES 
4338 PRINT 

JE SUIS " 
4335 PRINT "6LESSE 
EfJUCARR OANS" 
4230 PRINT "UNE SALLE DU CHATEAU 
."."SI TU PERD5... IL TE FAUDRA" 
, "AETAOUUEA LA PRINCESSE." 
4335 GOSUB 9090 
4340 GOSUB 4008 

4250 PRINT AT 18,8, "OUE LA BATAI 
LLE COHHENCE.HE.HC. ." 
4380 LET CGA.INT iflND«9i*l 
4310 IF CGA-1 OA CGA-6 THEN GOTO 

4489 
4338 IF CGA-3 OA COA-8 THEN GOTO 

4800 
4330 IF CGA(>1 OR CGA(>3 OR CGA ( 
>6 OR CGA<>6 THEN GOTO 4690 
4480 FOR 1-1 TO 15 -—J-—,—™ 

4rt0 PRINT AT A.B,"*"^ 

4425 PRINT RT 16.0,-aT-TU AS PERD 

4487 PRINT AT A,0, "»" 
4449 NEXT I 



J.453 G03 u9 1399 

4435 POINT AT 18.9. OEC"ERCHE-LA 
, PREUX CHEuALIEO. . . 

4459 POINT AT 19.8. MB. .MA. .HA.. 
AuEC " , S. ' UNITES . 
4465 GOSuB 9S03 
4479 GOTO 680 

4588 PRINT AT 13,9, Tu H AS B5.E 
3SE. . .LE SORTIlEJE 
4518 PRINT VOUS BENZOIC DANS LE 

CHATEAU. 
4528 PRINT 'SON COURAGE jEunES S 
ENS. . 

4530 COSuS 9899 
4548 LET A-InT iRND»8j >2 
4S4S LET B-INT iRnD#4j.3 
A5S3 PRINT AT A.B. "0 
*555 GOTO 589 
4599 FOR 1-1 TO 19 
4 6 1 9 PRINT A- 15.8 



16.9. 



4650 MTO 608 

5308 Cl5 

5919 PRINT AT i 



.2. "UOUS ETES SAu 



S91S PRINT AT 6.2. 'TOUT EST 6ICN 

OUI FIHIT BIEN' 
5828 PRINT AT 3.2. "LA 5UITE DE L 
"MI5T0IAE EST- 
5825 PRINT AT 10 . 3 ,"... PERSONNEL 



5327PRINT AT 
5T30PRINT AT 



5848 GOTO 63 8 

5039 REH ■■DRRGONS S 

6838 LET PPTinT IRnD» 

6905 LET OO-INT IRNO. 

6919 LET PO-INT IRNO.' 

6815 LET OP-INT cRNDt' 

6820 PRINT AT PP.OO;"| 

6830 PRINT AT RO.OP," 

6840 RETURN 

6580 REH mt 

6302 ClS 

6585 FOR 111 TOM 



0,9. "SOLOE EnERGIE 



RECLE DU 



6539 PRINT AT 0.6. 



ISTOIRE . 
"ENTREE D 



6532 PRINT AT 2,0, " 

U CHATEAU OE GAHORD 

6334 PRINT "UOUS.CHEUALIER A LA 

RECHERCHE DE" 

6336 PRINT "UOTRE DULCINEE, DEUR 

EZ AFTRONTER" 

6538 PAINT "LES TCRRIBLES DRAGON 

S.TOHBER " 

6549 PRINT "DONS 0"*'ANCIENKES OU 
BLIETTES, 0U-" 

6542 PRINT "URIR UNE PORTE SPATI 

ALE, CHUTER " 

6544 PRINT "DANS UNE OUBLIETTE S 

PECIALE" 

6546 PRINT "PROCHE DE LA PRINCES 

SE." 

6348 PRINT , "MAIS.0AN5 CHAOUE TO 

UR DU CHATEAU" 

6550 PRINT "UN COFFRET DCUOlLERA 
5ES SECRETS" 

6552 PRINT " UNE FOIS AUEC LA 
PRINCESSE," 

6554 PRINT "UOUS DEuREZ COHBATTR 

E GAHORD " 

6556 PRINT "POUR AuOIR LIBRE PAS 

SAGE." 

6553 PRINT "BON UOYAGE . . . " 

6560 PRINT AT 20,8,'TAPEZ UNE TO 

UCHE" 

6562 PAUSE 4E4 

6564 CLS 

6570 AEM ■■DESCRIPTION 

6572 PRINTTAB 2 , "OEROULEHENT DU 

JEU ISIGNCSJ" 
6574 PRINT AT 3,2. "UNE FOIS LE C 
HATEAU EN PLACE, " 

6576 PAINT "UN POINT BlANC ALE 
NTREE PLACE " 

6578 PRINT "LE CHEUALIEA QUI APP 
AHAIT APRES " 

6589 PRINT "L 

OUCHES, 5, 6, 7, ET ai 

6583 PAINT "Xt SUrFIT DE 3UIURE 

Le TEXTE", 

6564 PAINT "OUI SUIUPA." 

6898 GOSUB 9898 

6595 GOSUB 9008 

6508 ■:.!.:, 

6610 PRINT "DESCRIPTION OES PERS 

ONNAGES" 

6628 PRINT AT 2,8,"B -CHEUALIER. 

3 ETEINT AU HOHENT" 

6638 PRINT "OE JOUER." 

6648 PRINT 

6658 PRINT "3 « PRINCESSE, UISIB 

LE UNE FOIS" 

6655 PRINT "LA PRRTIE PERDUE." 

6655 PRINT "* 158 UNITES SI ELLE 

EST TROUUEE" 
6663 PRINT 

6670 PAINT ■'■ "COFFRET ENEAGIE. U 
TILISABLE " 

6672 PRINT "UNe SEULE FOIS PAR C 
OFFRET" 
6675 PRINT 

6680 PRINT "H -COFFRET MAGIOUE.B 
ONNE OU HAU- 

6685 PRINT uAISE 5URPP ISE . UT IL I 
SABLE TOUTE" 
6690 PRINT "LA PARTIE." 
6700 PRINT 

6713 PRINT "II -OUBLIETTE. CE SIGN 
E RESTE SI" 

6720 PAINT "LA PRINCESSE EST PRO 
CHE" 
6723 PRINT 

6733 PRINT X .ANC IENNE 0U6LIETT 
E -SORTIE" 

6734 PRINT "TOUR NORD-EST" 
S730 PRINT 'TAPEZ UNE TOUCME" 
6733 PAUSE 4E4 

6735 CLS 

6740 PAINT "H -GAMORO. S""ALLUME 

UNE FOIS LA' 
6750 PRINT "PRINCESSE TROUUEE." 
6769 PRINT 

6778 PRINT "CHAOUE SALLE UIOE ■ 
-10 POINTS" 

6780 PRINT "APPUYEZ SUR UNE TOUC 
HE" 
5786 PAUSE -l£4 

6790 RETURN 

3990 REM piWTEHPORISATION 

9890 FOR TTT TO 68 

9010 NEXT T 

■3039 RETURN 

9209 FOR 1-1 TO 6 

9319 NEXT I 

9228 RETURN 

9300 FOR T-l TO 13 

4310 NEXT T 

9315 RETURN 

9569 CLEAR 

9699 SAUE "GAHOR«" _ 

9659 RUN ■ 



HEBDOGICIEL 27, rue du Gal-FOY 75008 PARIS 

VOUS POUVEZ VOUS ABONNER AU TARIF PREFERENTIEL DE 340 FRANCS POUR 52 NUMEROS AU LIEU DE 
52 x 8,00 = 416 FRANCS. ABONNEMENT POUR 6 MOIS : 180 FRANCS. 



NOM : 

PRENOM : 

ADRESSE : 

REGLEMENT JOINT : D CHEQUE □ CCP 



MATERIEL UTILISE : 
CONSOLE: . . . 
PERIPHERIQUES : 



C AO 



DRAGON 32 sait tout faire. Avec ce programme cons- 
truisez un Dragon 32 (pourquot pas?) au super gra- 
phisme... 



Marc BARTHELEMY 



Possfotlrles de dessins de composants du programme: 

Les resistances. 

Les transistors (boitter rood). 

les circuits integres de 8 a 40 partes 

Les condensateurs chimiques ou a plaquettes. 

Les dtodes (dessin resistance + barre de cathode). 

LMpMMM. 

u. 

» faire du double face (2 pages graphiques). 



Sauvogarde ou chargement de I'ecran par cassette 
La page n* 2 est posltionnable par rapport a la n* 1 lors de la sortie 
sur imprimante. 

Les deplacements du curseur sonl au pas de 1.28 mm 
Les lignes. circuits et resistances sont ecrils en tables. Ouand Tune 
d'elle est pleine le programme le dit. II est conseille ators de sauve- 
garder I'ecran sur K7, de relancer le programme puis de restaurer 
I ecran. 

L'utilisation des commandes est decrite par te deroulement du pro- 
gramme. La commando D nest indispensable que pour le point de 
depart dune ligne (commande L). 

A noter que pour etfacer une ligne. il faut positionner le curseur a 
Tune des extremites. Pour un circuit integre ou une resistance, le 
curseur doit etre sur la parte de depart du dessin du composant. 
Pouf une pastille ou un Iransistor. appuyer de nouveau sur sa 
commande. 

L'imprimante utilisee est une BMC. Pour en utiliser une autre modi- 
fier les lignes de commande de l'imprimante: 
2090: Valeur de linterligne. 

21 10: mode graphic simple densite largeur 256 points. 
2160: Mode graphic doubte densite largeur 512 points. 
2360: saut de page. 
L'index des commandes est obtenu par la louche . 



i?98 F-*iNT-r296.' 



PRIM7ft^9?- lecture". CMP* 1 1 7* >«s#*»- ] M > , 



*"RIHTt363. -j s tr.don* 



Le 27 tulltet, un numero 

quadrupW pour le prix de 3 
numRroa. 4 programmes 
per ordlnateur, 64 page*) 
24 franc* cnez voire mar- 
chand de foumaux. 




39 conception On circuit* i^nr* s 
79 G0T02338 



lie m-it*CErt 

129 IF H8-CHRtK8) THEN XX-XX-4.24 •K*IHT<Mt>> 

IF X<4THEN X-249.7S'XX-X ""' 

139 IF HS-CMRTK9) THEN XX-XXM.24X-INTCXX)' 

IF X>231 THEN X-4.WX 

144) IF H*0«rS(19) THEM YY-YYM.24 Y-IHTCYY)' 

IF Y>I87THEN. Y-2-YY-Y 

158 IF H8-CHRTK94) THEM YY-YY-4.24 1 Y-INTC YY)\ 

IF Y<4THEN Y-189'YY-Y 

169 IF PP0INT<X.Y>-3 THEN A2-3 ELSE A2-0 

179 PS£TCX.Y,8) 

1M IF Al«3 THEN PRESEKRX.rTY) 

198 RX-XflY-Y'Al-*2 

288 IF H8-*D*THEK390 

219 IF MB--L-TMEN SCREEN1 , 1 GOSU8469 

228 IF H8--I-TMEN338 

236 IF MM-R-THEHSie 

248 IF H8--E*TMEW168 

29* IF H8--P- THEN 1629 

2«e IF H«--C-THEH75fl 

27* IF HB«*T-THENI628 

288 IF M8-CHRTK91 )THEm798 

258 IF H8-CMR»<33)THEm768 

388 IF H8--S-THEH1948 

318 IF M8--t-THEN26«e 

328 IF H-»-CHRtKI2)THEN2879 

338 GOTOUe 

348 H«-INKEY«'P0*Vrl,(H8) 

338 IF P0>8PM> POX3THEN SOUND208, 1 ' RETURN - ELSE340 

378 '«** Point de dePtrt OH 

398 SOUND 200.1PSET<:x,Y) 
488 IF FL-ITHEN PRESETCX0. YD) 
419 XD-X YD-Y'Fl-t 'GOTO110 
428 ' 

438 ■"* dessin d'une '.:'--■* " 



•M 



GOSU6460 G0T02629 

FL-0 SOUND 198.1 

IF XD-X AND YD-Y THEN99 

PRESET<'X0,YD) 

L«4--»l'GOSUBI810LCl.l )-X0 >UL.2>-YD'L( L.3)-X> 

4J*Y*LXL.3>-XP 

L I ME( X , Y )-<X0 . YD ) . F-SET 

RETURN 



It 1 



• ■■-■- 



itt 



Y0-Y-L''L,4>+UL.2) XD-X-L<L,3>*L/L,1 
IF XD-X AMD YD-Y THEN119 
FL-I G0SUB499 GOTO2620 



dess 



1 resist«nc» 



388 
398 

688 

sie sdjHoiee-i a.32 

629 PRIMT937. "[>ES:.IN [■£■=, RESISTANCES" I 

639 GOSUB820 2-8 

648 G0SUB349 

639 P-P+l G0Suei849 P'P.1>-X R<R.2>-Y 

P'P.?,-PO R(P,4)-XP 

«8 W P0 COS'JB 690. 719,678 

679 GOTO2620 

689 SX-51 SY-9 PX9-PH8 : L I -X+54 

699 IF LI>233THEM 7«-PT».ft-P-l G0S"je3968 PET'JPN 

799 G0T0738 

718 SX-0 SY-3I PX*»PV» L2-Y*34 

728 IF L2>191THEM V9-PT* P-P-l G0^JB3968 PETUPN 

739 DPflM "eM"*$TP*'>; >-".-*'^TR»' ,-:--. r-*^TP*'2.--,-*RX» 

749 CIPCLEfX.Y».2.Z CIPCLEfX*SX,Y*'SY),2.2 

739 PETUPN 

769 

779 •*** rJ«»«in d''jn ^1 tr»i 

799 

7?9 WJHU 199,1 

£99 C.LS2 PPINT8i8."f.o*Msr«".r.HP*' I28)i"d«",CMP«r 128); 

-Pir,»-,CMR8'i28>. ■ INPUT PN IF PfK80R PN 40THEH2628 

518 SOUND 199,1 C0S"je929 G0T0869 

^20 P*UHT*l«,"i"( PPI»lTei39."h->' l rontJr . 

838 PRIHT»298.' , 2". PRIKTt203,*v*Ttic*l _ ; 

?40 PRINT8264--3-, nt|HTt267 r -r*tovr">ClftK128>i"«cr«ll B 

:?39 PET'JPN 

fen G0-JJB349 

?78 ON PQ GOT0880?l8-56;'9-2629 

»89 Li=PM*4.23*X 

890 IF PN>19TMEN L2-Y-42ELSE L5-Y-24 

?«9 IF Ll>257 OP L2<8THEH948ELS£938 

?18 Ll>fNS4.23*V 

939 IF PNM3THEN L2-X*42eLSE L2-X-24 

??9 IF Ll>191 OP L2 >239THEN?40ELSE9W 

?49 .'=9 V8-CI* fI0S"8?9€9 GOT02629 

P38 *8**1 COJ8UBt890 'MM .=Pn C(W.Z)-J( KM,3)-Y 

C(N.4M>0 CN,3>»XP 

9«0 VE-A 

'-71? 8CKBEH1 . I 

989 ON PO Cr-Sijei029. I960 

?99 ON PO GOSUe 1110. 1120 

1898 IF VE-3TMENG0S'jei448 

1018 30"JN0139.I G0T0119 



1020 V-0 IF PN<29THEH HC-- 4.3ELSE HO-8.6 

1838 F0PHH-8T0 PK«4,23 STEP 8.3 

1833 M-IMTCHM) 

1848 DP8M-8M-*STR«<X*HH-,*+STR»<Y-2*V>+*;C*»STR«VE )*";-*( 

1939 GOT01898 

1968 H-9 IF PH<28THEN HC-4.3 ELSE HC-8.6 

1879 F0PW-8TO PW4.23 STEP 8.43 

1973 V-IKTXW) 

1989 CPPW -BM-*STR»<X-2*H>*".**STP»CY*V>*-iC-*STR*:VEH*;*- 

1998 NEXT 

1198 RETURN 

1119 V-INT(HCtt):GOTTJ1939 

1129 M-IHT<HC»6)'GOTO1970 

1139 ' 

1148 '*"* idmtiri* *ff run 

1138 ■ 

1168 S0UND188,1 

1178 a.S3'PRINT«39,-C0DE D'EFFHCErEHT'i 

1188 GOS9jei8C8>GnSuB348 

1199 OH P0 GOTO 1379, 1239, 1388,2628 
1299 1 

1219 'an *ff lira tttt 

1228 • 

1239 SOUND 168,1 

1249 FOR TL-1T0 L 

1239 IF L<TL,3>-X HMD L<TL.4)-Y 9HD UTL,3)-XP THEN1299 

1269 IF L<TL,1)-X AND L<TL,2)-Y RM) LCTL,3>«XP THEN1299 

1279 NEXT TL 

1289 >2=V8-LG*'G0SuB3879'G0T02Sae 

1299 LINE(L(TL,l),LCTL,2)>-<L<TL,3)-L<'n_.4>),PRESET 

1388 GOSUB1318<GOT02629 

1318 FOR Ct-TL TO L 

1329 L<CL,D-L<Ct+!.t )^L(CL,2)-4-CCL»l,2)^ua..3XCCL+1.3) 

LtCU,4)-L<a.*l,4>'L<CL3)H.<Ct+I,3> 

1339 NEXT CL'L-L-i 'RETURN 

1339 'XtXt *ff ci »»«t 

1369 ■ 

1379 SOUND 169,1 

1399 FOP TC-1T0 N 

1399 IF CCTC-2>-X RND C(TC-3)-Y 8HD C<TC,3>-XP THEN1429 

1499 NEXT TC 

1419 >2'V«-CI»'G0SU83979 C0T02628 

1429 PQ-CCTC.4>>PH-C<TC.l):VE-3 

1439 G0SU9979 GOT02628 

1448 FOR CC-TC TO N 

1439 C(CC.I)-CtCC+l,l )'C<CC,2)-aCC+l,2)' 

CCCC,3>C(CC*l,3)^CtCC.4>-C(CC*l,4)'CCC 

C,3)-C<CC*1.3) N8<CC)-N«<CC*1> 

1468 NEXT CC'N-N-1 RETURN 

1479 ' 

1489 '*** *ff r«*i»t«r<» «« 

1498 ■ 

1399 50UN0 169.1^2-3 

1319 FOR TP-1T0 R 

1328 IF P<TR,l:-X PHD PXTR,2)-Y PHD RrTR,4>XP TMEN1339 

1338 NEXT TR 

1349 J-9'V»-RTt G0Sue3979 G0T02629 

1339 ON P'TP,3) GOSue 689".719 GOSijei369 GOT02629 
1369 FOR CR-TR TO R 

1379 RCCR,I)-RCCR*l,l)'R<CR,2>-R<CR*i.2>' 

R<CR.3)*R<CR*1,3) t«CR,4)-R<CR*l .4) 

1389 NEXT CR P-P-l- PET'JPN 

1399 

1699 '***» d«siln Point rat 

1683 -an ou transistor ?t»« 

1618 

1629 SO'.'NDI69.l 

1639 IF H8--P-THEN DI-2 ELSE 01-12 

1633 IF <X>243 OR X<12 OR Y>179 OR Y<t2)flND 01- 

12 THEN V»-TR«'GOSUe3068'GOTO2628 

1648 IF XP-X AND YP-Y THEN CL-3ELSE CL-9 

1639 CIPCLECX,Y>,DI.CL 

1669 XP-X- YP-Y -G0T02639 

1679 

1689 'tf>* p.--. 2 imi 

1799 XP-3 PM00E4-3 

1710 0PBW "BM2432 C9"HIN« 

1729 G0T02629 

1739 ' 



1998 FPIMT8368.-4- 

2999 GCS>-'B349 

2810 ON PO GOT02820 244n, 2479,2629 

2028 PR INTA433. "POSIT !0M P«0£ 2 1-. 

2939 Ff-INKEY» 

2949 IF F»<CHpa<32)TMEN2838 

29W IF F»--H-TMEN PfiODE4.i XP-i CR-4? 0O5IJB2I19 

Pti0D£4,3 GOSIJB2129 G0T02139 

2960 IF F»--8-TMEN PT10DE4 , 3 XP*3 CP-49 riosuBai 18 

PNrjOE4.1 GOSUB2120 G0T02I39 

2970 IF F«--G"THEN PM00E4.1 XP-3 CP-23 rj0SUB2U9 

PMOD£4,3 G0Sue2119 G0T02288 

2980 IF Ft-"0-TMEMPN0DE4,3 XP-I CR-25 G0SU821 10 
PMODE 4 . 1 . G0SUB2 1 1 ■ GOT 02299 

2899 IF F9--4-TMEN2629ELSE PRINT9433. -HRUT-BftS- 
GffXHE-DROITE-i 
2199 G0T02938 

2119 SOUND 139,1 PRINT9433,- SORTIE SU* IMPPINRMTE '1 
2129 LINE(245.2)-<232.6).PSET.9F 
2139 LINE(8,8)-<235,19I J.PSET.8 
2148 PRINTt-2,CMR»<27)i-n-;CMR»<7)i RETURN 
2138 FOR Y-9T0191 STEPS CR-CR-1 PRINTtl86,CR, 
2168 PRINTI-2,CHR»<27) 1 -K-,CHR»<8).CHR8<1>( 
2178 G0S'JB2299 PRIHTt-2 NEXT Y 
2188 IF CR-23THEN PT100E4, XP 1 G0T02139 
2199 G0T02419 

2299 FOR Y-9T0191STEP8 CP-CR-1 PRINT*186,CR, 
2218 PRINT»-2-CMR8',27);-K-;CNR»r.8),CNP8C2)i 

2229 PT<C>E4,XP.C0SUB228e 

2239 IF XP-1TMEN XP-3 ELSE XP-1 
2248 PTBDE4 , XP ■ G0SUe2299 

2230 IF XP-1THEN XP-3 ELSE XP-1 
2260 PRINT»-2 

2270 NEXTY'GOTO2410 

2288 FOR X-8T0233 

2299 PR-9 

2399 IF PP0IHTCX.Y)-9TMEN PR-128 

2310 IF PP0INTCX.Y*1 >-0THEN PR-RR+64 

2329 IF PP0INTr.X.Y+2)-9THEN PR-PR*32 

2339 IF PP0INT<X,Y+3>9TM£N PR-PR*I6 

2349 IF PP0INTCX,Y+4)-9TMEN PR-PR»8 

2339 IF PP0IMT(X,Y*3>-9TMEN PR-PR*4 

2369 IF PP0INT<X.Y»6)-9TMEH PR-PR*2 

2379 IF PP0INTCX,Y*7)-9THEH PR-PR*1 

2399 IF PR-9THEN PRINTt-2,CMR»<0) i .GOTO2408 

2399 PRIHT»-2,CNR«<PR); 

2498 NEXT X 'RETURN 

2419 PRINT«-2,CHR«12) 

2429 S0UND129.I 'PRIHT9461 , -TERfllNEE" 

2439 G0Si.e3999 GOTO 1949 

2449 C0Sue3899'PPINT»448,- ECRITURE "iF»i" SUR K7 - 

2438 CSfrVEN F», 1336, 7679, 1336CS9VEN F«, 7688, 13823.7689 

2469 GOTO 1940 

2479 C0Su63998-PRINT«448,- LECTURE , *iF9>-' SUR K7* 

2489 CLOROfl F» CLOROrl F« 

2490 G0T01948 
2399 1 

2319 't» intiti«Hs»tion rt«t 

2329 1 

2339 PCLEPRS PH0DE4 , 4 ; PCLS3 PH00E4.1 PCLS3 

2349 aS6PRINTfl99,-RIDE 9 L9 CONCEPTION *>- 

PRINT»262,*DES CIRCUITS IHPRIHES". 

2538 0IH L<193,3).CC39,3).R<198.4) 

2369 LG»^"U9n«''RT*--r*»i>t*T>C«'-'CI*-*clrcuit-' 

TR8--tr-«nsi»tor* 

2379 XP-1UN»--R2!LID4L1R2" 

2388 PN9--R1D4L1U4*,PV9--U1R401L4- 

2399 RN•--R11U3R^9D3R^L11D3L29«J3' , ^ 

RV»-*D1 IL3029R3D1 1U11R3U29L3- 

2689 XX-126'YY-93'X0-XX:YD-YY<X-XX.Y-YY 

2619 FL-0 

2620 SOUND10.1 

2630 PX0R8, 5LIME<8.0)-<253. 191 >.PSET.B SCREEN!, 1 

2640 OfiflH -9N230.2;C0-*UN8 

2659 GOTO 119 

2668 ' 

2678 -ta r»PP«l co-Mino>s «« 

2699 

2699 CLSS0UND299.1 

2790 PRINTe32.-»t»» CONNfiNDES UTILISPBLES «*««** 



2719 PRINT9I90. 

2729 PRINT9132. 
2738 PRINT8164, 
2740 PRINT9196. 

2730 PR I NT 9228. 
2760 PRIHT8260. 
2779 PRINT»292. 
2789 PRINT1324, 
2799 PRINTt336, 
2890 PRIHT5416. 
2810 PRINTS448, 
2829 PRINTi?489. 
2839 GOTQ119 



VflLIOE POSITION CURBCW 
I - DESSIN LIGHE* 
i - OESSIN LIGNE PfiRflLLELE- 
r - PESSIH RESISTRNCE- 
c - DESSIN CIRCUIT INTEGRE* 
t - DESSIN TRflNSISTOR" 
p - OESSIN PASTILLE" 

* - EFFACE L-R-C" 

• - SORTIE ET SAUVEGAPDE' 
SHIFT FLECHE VEPT. - CHANGE P«GE" 
CLEAR - EFFACE ECRAN" 

FLECHE - OEPLACE CURSEUR". 



2839 
2869 
2879 
2980 
2899 
2999 
2919 
2929 
2939 
2940 
2939 
2960 
2979 
2989 
2999 
3999 
3919 
3929 
3939 
3949 
3939 
3969 
CHR»< 
3979 
128> 



'I* r«»t#ur»tlo 



toUl« ** 



tttt 



1748 'tttt paQ) 

1739 

1769 XP-1 PN0r€4,l 

1779 GOT02629 

1789 

1799 'tttt ».»bt* rxMMi* »»r 

1890 

1810 IF L-l??TMF>ll8,"'OFLSE PETUPN 

1929 CLS4 PPI(lT»228."»».».«r.tion-. 

CMP* 128 • "t»bl4-,CMR*: 128).-r***li*-. 

:-- ■- ■..: 'iMVi; -'UHll 1 W, M M« 

1849 IF P-98THEN1828ELSE PETURt) 

1939 IF H-29TMeNl829ELSE PETt.WI 

1^69 PPINT9I6R--1-, PP1HT9171."<:I". 

1879 PPIHT»232.-2-. PP!HT»?33. !.<;•■ 

1899 PPIIrt»296.*3-. PPIHt9299.PT». 

1999 PRIHT9369.-4-. PPINT9363. "r»loor- CHP*' 128»»"« 

1999 PETijPH 

1919 

1928 -ttt* sorties tut 

1939 

1949 CLS3 SOUNDI60.1 

1939 PRIHT843. "SORTIES*. 

1969 PPINT*I68."l"; PPINTei71 . *iHPrt-.«nt4- , 

1379 PPIHT»232."2". PPINT9233. "•criture-iCMRtK 129). 



SOUND193. 1 ■CLS4.pRINT"f40,>ff*c»»wnt"iCHRtK12e>(*tOt«t" 
PRINT8204,"o". PRINT*207.*wi"t 
PRINT(!268."n"; PRINT9271 , "non" ■ 
H»-INKEY« 

IF H«-"0"THEH SOIJND290.1 ■ GOT 02949 

IF H8--N-THEN2629 

GOTO2900 

EN-N 

FOR EC-1T0EN 

IF C"EC,3)-XP THEN TC-EC 'GOSUB1440 EC-EC-1 

NEXT ECEL-L 

FOR EC- 1 TO EL 

IFL<EC,3)-XP THEN TL-EC COSUei 318 EC-EC-1 

NEXT ECER-R 

FOR EC-1T0 ER 

IF R<EC.4)-XP THEN TR-EC GOSUB 1 360 EC-EC-1 

NEXT EC 

PCLSS'IF XP-5TMEN DRAW - 8*1243. 2, C0**UNt 

G0T02699 

CLS8' SOUND 190,1 PR I NT8239 , \*»*CMPtK 128>. -hors". 

129)i-ctoV»-j GOTO3080 

CLS9PRINT9223*J."Position'*LNR*r 128>»V«*CHR»< 

"incorrecte** 

FQRW-0TO690 > NEXT H RETURN 
1999 PRIHTI»433."N0r1 FICHIER". INPUT Nt» 
:180 Ft-LEFTtKNMt.S) ■RETURN 
1110 SOUND229.3 G0T02I19 __ I 

DRAGON 32 



SOLUTION DE L'HIPPOREBUS: 



1'3 F0RI-1T015 

29 REflDX 

30 PRlNTCHRS<X)i 
40 NEXT I 

50 DRT877, 73/67,82, 
79,80,82,79,67,69,83 
,83, 69, 35, 82 

60 END 



DONJON DRAGON ET Cie 



Le 27 jvtltot. un num+ro 
quadruple pour le prii de 3 
numeros. 4 programmM 
par ordinsteur. M pages? 
24 freocs Cherx voire mar- 
chsnd de journsu* 



Donjons, Dragons el Cornpagnie, tout un programme mieux vaut recuier 
pour votre TI99 et pour vous! 



Thierry CLEMENT 

Apres avoir lance le programme. le cadre s'affiche avec les numeros 
des 9 armes et Ies louches correspondent aux ditferents ordres. II 
taut ensurte attendre 1 minute environ, le lemps de tracer le labyrin- 
the (invisible) el de placer Ies armes et monstres. 
Les regies saWcheront: le nombre de Iresors est demande. au 
debut il vaut mieux choisir entre 10 et 15. 

Les souterrains et voire bonhomme apparaissenl alors. Vous pou- 
vez mamlenant vous deplacer grace aux touches E ( " ), X ( 1 ). D 
(— ). S (•— ). Plusieurs situations peuvent alors se presenter. 
1) Vous n'avancez pas: Vous vous trouvez devant un mur: pas 
question d'avancer. On peut !e verifier avec la torche ou le radar: 



2) Vous avancez: la aussi plusieurs cas. 

• la salle ou vous etes maintenant renferme une arme de valeur (1 a 
9). Vous pouvez la laisser ou la prendre (louche Pj.Dans ce cas 
I arme s'alfiche en haut a droite amsi que sa valeur el le nombre 
d'armes. II faut savoir que plus vous portez d'armes plus vous 
vous alourdissez. 

- La salle renferme un monstre. Son nom el sa force sont affiches. 
Si vous possedez une arme vous pouvez combartre en indiquant 



touches survantes: 

T (torche): eclaire le donjon, pour I etemdre. appuyer sur n'importe 
quelle louche. 

R (radar) donne les occupants des sa»es votsmes. Son uttsalton 
coute 50 pomts 

M (marques): Laisse des traces derriere le bonhomme (1 poml par 
marque). Un autre appuie sur M annule les traces. 
L (laisser): Laisser une arme. 
N.B.: Le combat" II se peut qu'on gagne le combat avec une arme 



le numero de I'arme. Si vous ne possedez pas d'arme vous devez de valeur plus faible que le monsire ou qu'on te perde avec une 
' ' . Cela ne se passe que lorsque le monstre attaque. S'iI vous arme de valeur plus forte. 



guette, mieux vaul leviter. 

• La salle renferme un tresor — • + 250 points. 

- Vous tombez dans un souterrain et vous vous relrouvez a la sortie 
dun autre souterrain? II se peut que vous restiez sur votre case, 
ce qui permet de franchir le souterrain sans y tomber. 

• Rien ne se passe. On peut de nouveau avancer ou actionner les 



On perd: 1 point a chaque dep'acement plus le chargement et tes 
marques. Important, lorsque !e total des points ■ 0. vos pressures 
vous empechent de contmuer les recherches (f":n du jeu) 
Le but du jeu est de trouver le dragon et de le tuer Les medieures 
armes sont le laser (force 9) et le P-flam (force 7). 




>se. un peui ae nouveau avancer ou actionner ies 

T\99' 4 * BASIC ETENDU 



60 CALL COLOR 112.3,2, IL',8,51 
70 CALL CHARI92, "003C4281B1423C") t j CALL 
CMflS»121,-4«281ti2B«<")i: CALL CHARC128, 

-7eBtsjei8iei8i7E*) 

BO CALL CHARM3&, "7E818181Sieiai7E">i: C 
ALL CMAR<"»1,-?8 , ?87E3D3C24244,2") 
■70 GOSUB 1530 
100 CALL CLEAR 
MO '■■..-! -• DAT AS •• 

120 DATA UNE EPEE , 1 , 8040221 1OA042AI 1 , UK 
PETARD, l,OOO2O318;S70€0CO, UN ARC, 1,87392 
2544894AOCO.UNE LANCE, 2, EOCOAO 1008040201 
ISO DATA UNE POLORE, 3,0008ieiC;43E6P6B. U 
NE HACHE,4,0C2ClOAeC4E2Ol.UN MISSIL.S.OO 
" « L-FLAH,7,OOO04FPF< 



140 DATA UN LASER,9,0O47FF17IE0M>i.OF,UNE 
CHAUVE-S, 1,083D687F3D3D3D©8,UN SCORPION 
, l,Or05010ICAFE7C28 

ISO DATA UNE VIPERE, 1 , EOCCB2020C10I3OC, L 
ARAIGNEE,2,SABD<>918SABD99,UN PVTM0N,2,0 
F0307 1 <?2021 1906, LE CVCLOPE , Z, FE82V282FE 1 
028C6 

160 DATA UN GAROU, 3,63143C6£F£1E6E3E,UN 
COU6ARD,4.E7247E5A7E248DE7,LE VAMPIRE, 4, 
OE1F377F073B1EOE 

170 DATA LE HINOTAURE,3,D8C33C3ClS18187E 
,L ' OCTOPUS, 6, 81423C5AFPBDA324, DRAKULA, 7, 
FF fVF FE7 DB3A3A 7 E 

1BO DATA LE CROKUS,8.7E8DFFE7D87£24C3,UN 
DRAeiBUS,B,3C7EDBFFE7D87E3C,LE DRAGDN.9 
, 67E323E4 121 20C . T , , 003834 50381 45438 
190 REH •• 1N1T '- 

2O0 Dirt CAS(21,21),NM*<23),VRM(23):t RC* 
-"EXOSTRnLP" ti LX-2 i: CX-3 :: HRO-32 t 
: PDS-0 

210 PTS-400 :: FOR 1-3 TO 19 :: FOR J-2 
TO 20 :: CASIJ.D-32 ti NEXT J t: NEXT I 
220 RE* •• CADRE •• 

230 CALL MCHARU.2, 128,31) i ; CALL HCHARI 
11,20,128,12):: CALL MCHARt 19,20, 128, 12) 
:: CALL HCHARI20, 28, 12B> 
240 CALL HDMR(21,Z,12S,31flJ CALL HCMAR 

.... I2S.31I 
250 CALL VCMAR1 1.2, 128,21)15 CALL VCHAR ( 
1.20, 128,21):: CALL VCHAR [ i , 32, I 28, 21 ) 
TOO FOR 1-1 TO " :: DISPLAY AT(I*],19)SI 
. rBTMd)*- " :: NEXT I 

_AV AT(12,19).--T-T0RCHE" :i DISP 
:. I9»i "R-RADAR" :i DISPLAY AT(14 
. ;?.■: ■n-MAfiOLiE- 

280 DI5PLAV AT I 15. 19) : "CCOMBAT" :: DISP 
LAV ATU6, 19>: "P-PRENORE" :i DISPLAY AT { 

: -L-LAISSER" 
290 DISPLAY ATI18. 19U-F-FUIR" :: DISPLA 

>,t919IZE<7)l"P8-400" :: DISPLAY A 
:-LlN PEU DE PATIENCE" 

- •• DONJON ■• 
510 FOR L-3 TO 19 STEP 2 i; FOR C-4 TO 1 
H STEP : :: CALL MCHAR <L,C, 1 36) : i CAS<L, 
C)-136 

[MT(S*RMD-1)I1 IF »■ ■ sO THEN 340 

tWTC3» n W0-t)«l IF Y-O THEN 330 
IM/ CALL HCHARIL*Y.C*X.I36)i: CA3(L*Y,C* 
X)-134, :: X>0 :: y-'j !: NEXT C :: NEXT L 
3SO FOR 1-1 TO 25 !1 READ NH» ! I ) , VRH < I ) , 
A« :; CALL CHARI9S»],A4> t j N-INT(3»RND)» 
1 : : IF 1'24 THEN 370 

:=24 THEN N-l ELSE H-l 

3 <■'.' fop. j-i ro n 

380 A-INT 1 17»RND) *3 :: B- INT I 19»RNDI *2 : 
: IF CASIA.B)-- v32 THEN 380 

HA, B) -93+ 1 :: NE*T J || NEXT I 
:- ■■ 'iuUiEffMlN ■• 

I -i ro n 

420 A-INTI17-PNDI -3 :: B-INT I 19-RND) *2 : 



32 THEN 420 

:t CALL HCHAR(A,B,92>: 
I NEXT I 
40 CALL HCHAR<2,3,91) i: FOR 1-110 TO 
STEP 8 :: CALL S0UND<-10, I , O, 1*5,0) i 



I«F E-0 THEN 460 : 
5 

□UNDI-1.B8 
470 IF S1T-1 THEN 490 

480 K-POS(RC»,CHR»(TC) ,I)ii IF K-O THEN 
460 t: ONK GOTO 510,510,520,320,730,780 
,910,950, 1010 

IF TC-67 THEN 1070 ELSE 127 



B30 FOR 



■LX-l TO LX* 



FDR J-CI-: 



490 SIT-i 

O 

300 REM •• HOUVEHENT •■ 

310 DY-2«K-3 11 DX-O 11 GOTO 330 

320 DX-7-2**: «i DY-O 

330 CR-CAS(LX«DY,CX*DX):i IF CR-0 OR CR= 

136 THEN 460 

340 CALL HCMAR(LX,CX,rlftQ>: t LX-LX+DY i: 

CX-CX*DX :i CALL GCHAR<LX.CX,MRO) :i CALL 

HCHAR!LX,CX,91) 
330 IF MR0>95 Oft MRP-0 THEN 570 
360 KRO-12I v 

370 PTS-PTS-PDS-l-HRP :: IF PTS< I THEN I 
430 

3B0 DISPLAY AT (20, 21 ) SI ZE 13) : PTS ji IF C 
R-32 THEN 460 
390 IF CR-92 THEN 70O 
600 IF CR-I20 THEN 720 
610 VL"VRH(CR-93) 

620 IF CR>93 AND CR< 105 THEN 630 
630 IF CR>104 AND CR<120 THEN 670 
640 RErl ■• ARMES •• 

630 I«-NH«ICR-93)i! A1«-"LA SALLE CONTIE 
NT "H* :: A2»-- VALEUR- "«.STR« <VL I 1 1 GOSU 
6 1460 i! GOTO 460 
"*660 REM »• MONSTRES »• 
670 I«-Nn*(CR-93>!l I-INT(2»RND)*1 II IF 

7=1 THEN Al»-I*f VOU5 GUETTE" ELSE Al» 
-!»«." VOUS ATTAOue - 

6B0- A2«-"F0RCE- , 'tSTR»(VL)il GOSUB 1460 i 
I IF Z-l THEN 460 u SIT-1 :i GOTO 460 
690 REM •• SOUTER •■ 

70O CALL HCHAR(LX,CX,92) :t ! -INT (5»RND*I 
III LX-INTIPS(D) il CX-(PS<I)-INTIPStl) ) 
»»100 :: HRO-92 : : CALL HCHARtLX, CX , 91 ) i 
i GOTO 460 

710 REM •• TRES0R*4)«. 

720 CR-36 II A1»-*CE TRESOR VOUS RAPPORT 
E" il A2«-"230 POINTS DE VIE'" :i GOSUB 

1460 
730 PTS-PTS*230 :: DI5PLAY AT (20, 21 I SI ZE 
I5HPTS i: CALL SOUND ( 100, 1 10, 0) I ■ CALL 
SOUND! 100,880,0) n CAS (LX, CX>-32 n GOTO 

460 
740 REM •• TORCHE •• 

750 CALL COLOR (14, 12, 13) II CALL KEY(0,T, 
E)ll IF E-0 THEN 760 II CALL C0L0RU4.1, 
1)11 80T0 460 

760 PTS-PT3-I II IF PTS< I THEN 1430 II D 
ISPLAY AT(20,21)SIZ£(3) iPTS ti GOTO 750 
770 REM •• RADAR * « 
780 IF PTS~50<1 THEN 460 

790 FOR I-LX-1 TO LX.l n FOR J-CX-2 TO 
CX*2 
BOO L-CAS(I.J)I1 IF L-32 OR L-O THEN B30 

i : IF L-136 THEN 820 
810 CALL HCMARII, J,L) : : GOTO 830 
820 CALL HCHARd.J. I2B> 
830 NEXT J it NEXT I ii CALL HCHARtLX, CX 

840 AI»-'L'UTlLISATION DU RADAR" M A24- 
"VOUS COUTE 30 POINTS" ti GOSU8 1470 n 
PT3-PTS-50 i: DISPLAY AT (20, 21 I SI IE C3) iP 



> OR L-92 



CALL HCHARtLX. 



B60 L-CAS ( I , J > : : 

THEN 890 :: IF L-136 THEN B80 

B70 CALL HCHARI1, J, 32) : : GOTO 890 

880 CALL HCHAR ( I , 

890 NEXT J i : NE) 

,91)ii GOTD 400 

900 REM •■ HAROUES - - 

910 IF MRP-1 THEN 930 

920 HRP»1 t: A1«--MARDUES ENREGISTREES" 

i; A2»-"VOUS ETES EN SECUR1TE" :: GOSUB 

1470 :t SOTO 460 

930 MRP-O II AI4--PLUS DE MARQUES" n A2 

•--PRUDENCE.." :: GOSUB 1470 II GOTO 460 

940 REM ■* LAISSER •• 

930 IF CAS(LX,CX)<>32 THEN 460 

960 DISPLAY ATI22, 1 ) i "QUELLE ARM£-'ll-9)- 
II ACCEPT AT<22, 18) SI ZE 1 1 ) VAL IDATE (DIGI 

T):I 

970 IF N8II1-0 THEN 960 :: GOSUB 1490 

980 CAS(LX,CX1-I*95 n MRO-1'95 Ii Al»-" 

L-AftME EST LAISEE IC1" it A2»-" CHARGE HEN 

T TOTAL--.STR«(PDS>t.- K6S" 

990 GOSUB 1470 II GOTO 460 
y 10OO REM •• PRENDRE *• 
'" 1010 IF CR<96 THEN 460 

1020 PDS-PDS*VL 

103O Al»-"VOUS RAflASSEZ -fcl» t: «.t=-u." 

RGEMENT TOTAL-"fcSTR.(PDS)t," KGS" ti GOSU 

B 1470 

1040 J»- _ - !! L-CR-94 i: N6<L-1>-NB(L-1) 

*1 II P-POSM*.- 

EN4I«)-P)it CASH. 

1050 DISPLAY AT(L.22)SIZE17)U* ii CALL 

HCHAR(L,23.NB(L-l)*49)i i CALL HCHARIL.31 
. tf .VL+48)ii GOTO 460 
."TT)60 REM •■ COMBAT •■ 

1070 FOR 1-1 TO 9 tl IF NBIIIOO THEN 10 

1080 NEXT I it GOTO 1270 

109O DISPLAY AT(22, 1): "ARHE UTILISC£-<1- 
I AT (22,20)5IIE<l)VALID0TE(D 



J»-SED»( I4..PM.L 



TC.IT) : I 

MOO IF NB(I)-0 THEN 1090 
OMBATTEZ" I! A2»-"" :; GO! 
I HO VL1-VPMI 1 ) : 

IF VLKVL THEN I ISO 
1120 X-INT(PIS»RND/2 



n»-"vous c 

" ! : GOSUB 1470 

IF VL! VL THLN 1 13'> : : 

IF X-l THEN 



1130 A1»-"MAIS LELA NE SUFF I T PAS' 
*="A C0N1RER CETIE ATTAOUE" II OOi 
O ii GOTO 1210 

1140 AI.--LE COMBAT EIA1T DUR- :: 

AIS VOUS SURVIVE!" :i GOSUB 1470 ! 

1240 



GOTO 



l«RND)»l ii IF XI THEN 1 1 70 

1160 A1»-"PAS DE CHANCE i: A2t-"VOU 

■i PERDEZ LE COMBAT" il GOSUB 1470 it GOT 

O 1210 

1170 AI»-"VOUS SOftTEZ VAINOUEUR" i: A^»- 

*.SANS AUCUNE RESISTANCE" ii GOSUB 1470 

II GOTO 1240 

HBO D-VL-VL1*2 11 X-INT(D»RND)*1 i: IF 

X-l THEN 1200 

1190 A1«-"V0US ETIEZ TROP FAIBLE" i! A2» 

•"ET PAS A5SEZ ARME- it G0SU8 1470 it GO 

TO 1210 

1200 AH-'INCROVABLE.VOUS ARRIVEZ" II A2 

»-"A LE 1UER AVEC "*.NH» ( I ) I I GOSUB 1«70 

1! GOTO 1240 

1210 PT8-PTS-VL»6 n At«-"VOUS PERDEZ "<. 



iTR«(VL*6 



in 1490 
24.J CAS 

• -"vicri 



" FOIHTS" t: A24--MAIS AUSSI 

GOSUB 14 >0 

, l fHEN 1430 

■' AT(20,21)SIZE(S)iPTa ii GOS 

GOTO 460 

:. (:*!-;-• :: FTS-PTS*VL-10 i: A 
RE MERITEE" it A2«-"V0US GAGNE 



Z tSTR»(VL*IO>-" POINTS" 
1250 GOSUB 1470 :: IF PTS 1 TKf: 1430 
OISPLrtY AT<20,2l>SlZCtSllPTS :: IF CR- 1 

.,19 THEN 1370 ELSE 460 

fl260 REM ■■ FUIR •# 

1270 A1*--CETTE FUITE VOUS SAUVE" it Y-I 

NT<3*RH0»*1 ti IF Y-3 THEN 135o 

1280 FOR 1-9 TO 5 STEP -1 ii IF N6(l). O 

THEN 1340 
1290 NEXT I 

I30O I-INmPTS-VL)/30)n PTS-FTS-1 : : A 
;*--VOUS PERDEZ "ISTMIDl- POINTS" 
1310 GOSUB 1470 it DISPLAY AT I20,21)SIZE 

1320 CALL HCHAR<LX,CX.32I 

1330 LX-INTI17-RND1+3 n CX-INT ( I9*RND) * 

2 11 IF CASILX,CXK>32 THEN 1330 :: CALL 

HCHAR1LX.CX.91) i : GOTO 460 
1340 A24--V0US EOAREZ "&NH*<I>i: GOSUB I 
470 ii GOSUB 1490 it GOTO 1 320 
1350 A2.--AUCUNE PERTE" :! GOSUB 147o Ii 
GOTO 1320 
1360 REM •■ GAGNE ■■ 

1370 A1»--LE DRAGON EST MORT.VOUS" II A2 
•J 4--ETE5 LE ROI DU DONJON" it GOSUB 1470 
'^~1380 FOR 1-440 TO 10OO STEP 5 n CALL SO 
UND(-10. 1,01 ii NEXT I 

1390 At*-"VOTRE MISSION EST REMPLIE" :i 
A24--VOUS POUVCZ SORTIR O'ICI" il GOSUB 



1470 



II, J) 



■■■■ ■■ 



TO IV 



CALL SO 



) GOTO 1410 
1420 REN •■ FIN •• 
1430 FOR 1-440 TO ItO ST£ 
IINDl-10. 1,0)11 NEXI I 

1440 A14--FIN DU JEU: P01NTS-O" il A24-"A 
LA PROCHAINE F01S" II GOSUB \4/" It GOT 

1400 

1450 REM •• AFFICH t» 

1460 CALL )-ICHAR(20,30.Cfi)ii FOK 1-1 10 4 
II CALL S0UND{100,440,3,SB0,3)ii FOR T- 

1 TO 100 ii NEXT T n NEXT I ii CALL HCH 

ar<?o. .-<>. S21 

1470 DISPLAY ATC22, 1) I Alt: A2f :: 

TO BOO :: NEXI r n CALL ICHAf. ( . . I . 
(.*>:: RETURN 

lafin rem ■■ ARMES H« 

1490 NB(I)-NBt D-l 11 PDrJ-IDS-VRMi] ) s j I 
F NHi I l-O THEN 1510 

ISOO CALL HCHAK(l+l,23,NSII)*4a)li CALL 
SOUNDtlO, l 10,0,440,01 III 

1310 CALL HCHAft(l*l,; ■,:.. , 1 9)di C*LL l(Mf 
D' 10, i IO,0|BeO,OI : : RETURN 

1320 REM 44 PRESENT ■- 

1530 DISPLAY AT (2, 4) i "DONJON. DRAOON (.Co" 

I i DISPLAY AT (6,!)i "LA NU1 T E'. i 
LE DONJON N'EST PLUS ECLAIRS* 

1340 DISPLAY AUB. 1 » i "MEURESEMENT LA T« 
CHE VOUS GUIDERAlLES MARQUES SERVEN1 A S 
E REPERER ET LES SOUTERRAINS A SE DCPLAC 
ER RAPIDEMENT" 

1330 DISPLAY AT ( 1 2, 1 I i "LE RADAR. TRES Ut I 
LE.VOUS CDUTERA 30 POINTS. VOUS DEVEZ tUt 
R LE DRAGON AVEC UN LASER OU UN L-FLAN* 

1560 DISPLAY AT 1 16, 1 ) I "MAIS VOUS N'ETES 
PAS SEULiDES MONSTRES PLUS OU MOINS FORT 
US GUETTER OU VOU5 AIIAOUCR 



1570 DISPLAY AT<20. 1)1 "L'l.ii '< -.' 

U COMBAtlRe.MAIS ATTENTION VOUS VOUB EPU 

ISEZ VITE ET LES TRE30RS SONT M 

I3BO DISPLAY AT (24, 1 t I "Ml 

> : : ACCEPT at [24, 19)'.; Zl 

(-: r>ll : t IF 7 14 THEN I3B0 

I HjRN 



LABYRINTHE P ci500 



Le 27 Julllct, un numero 
quadruple pour le prlx de 3 
numero*. 4 programmes 
par ordlnateur. 64 pages' 
24 Irenes ch«2 votre mnr- 
chend de journaux. 



Encore un labyrinthe? Bof, pourquoi le programmer? 
non! Cher lecteur, ne te laisse pas aller, tu n'as jamais 
vu cela sur ton PC!!! 
Alors recopie et admire... 

Francois RAPENNE 

Mode d'emploi mclus dans le programme. 

N.8.: Une petite astuce graphique vous permettra de parcourir le 

labyrinthe beaucoup plus rapidement que prevu. A vous de la de- 

couvrir! 




ia:PlM Cl*tl),C2» 
tl;,C3»U),F»l 
21*34, X»(I0), Y 
t(l?,',DiJ), 'it i 
),F{3),0»(4) 

2e:Cl«(l>=-?FPF7F 
?F^F7F7f:CI»( 
0>«"7F414HI'll 
4 1?F" 

30:C24(a)»"3E2222 
223£*»C2<<1)*' 
jt3E3F3e3E":C3 
■«e>*"ICI4lC"S 
C3itll--lCICIC 

iaiP4(l)>"7FPF7F2 
F^F^F^F^l ?F7F? 
F?F?F?F7F^F^F- 
:F»42)-"3F:3E3E 
9E3E3E3E" 

50:OS(1)»"HORQ " : 
04C21--0UEST": 
0«(3)»"SUO ": 
0K4J--ESI 



■ ..:-., 



] I" 



am 



ii 



; 1810008 IX«tl 

)=" 1001310100' 
:«»C2)'"8BBI8( 



-101 



'-Q\ 



01100100': 
3)i"lllllMin 
-S V««0>-"] 1111 

I Mil 

]:v»( i >?■■) leioei 
380*! '*<2f-lQ 
■ IGIOI 1 1 " : V»< 3 

>=■■ i iaiaiai 1 1- 



100":y*16j»"1O 
01000111' iV*<; 

Bl 10110101- 

:y»(8>- h 3J1331 



.,fl:iOS'j3 7*8 
:.T3;x-<0iYoe:O" 

14 



140 


PRINT "Lt 1r«| 








rx;-y--iTYi 




HAIF 0:CLS : 




MflE "8 


■■> 


ON OGOIO 160,2 




08, 240, 780 


■' i 


fop i-iro 3 


H 


K>]-I1L*H 




C0SU9 700:FU> 




•yi IF TY»Y*K 




F.NP K«tXLCr 1' 


■ -u- 


K»0iL«2-|i 




CGSU8 O80:£.lD 




■U 


IH( 


KcliGOSUB 680: 




D(I)«U:N£XT I! 




GO TC )20 


.'. 


FOP I-ITO 3 


; if 


K'l-ltL>li 




^OSua 680IFU) 




»U: IF Y-TYOhO 




H.«»rxL£I T.4- 



G0SU9 700:^(1) 

,':, .<: , ,;:: 

■ UNCXl I: 
'>0I0 320 
40:FOR l«l 10 I 
K=l!L=l:G01UH 
^00! Ft 






-.... I 



■1RND 1 
-I 



i80iK-l;L = l:r,OSUB 

■itt0:&ll)<U 
.^0:f--0:GOSU0 ABB: 

0(1)«U:HEXI II 
GOTO 320 

;ea:FOff i-iro 3 
298:«-JU'i:GOSUB 
680:F(])'UMF 
x*k»ix*iond rr 
'Ylei r-4-i 

100:K.0:L'I:&OSUa 

;'08:G(I) = U 
3ia:Kil:GOSU0 700: 

r)(i»«uiNExr i 

128: IF T^iElCEP 3 
3301 GOSUB 720 
140;GCURSOR 30: 

GPRINt C1«<G(1 
)>:Fti D;ci»(fj 
M));: if Ftu* 



Hl"!S-0:GOrtl 

« 30 
)b0i IF I=2BECP 2 
:-70:6CUPSOP 3?: 

liPPlNl C2SC&11 
)>!» : «{2)iC2»(U 
•2>>i\ IF F(2) = 
'■ I iU2WT<J 
"30 
388: IF S-2&CUPS0B 
42:&PPIRl ^22 
22222222222":S 
-0:&Oro 430 
1901 IF I'lQLFf I 
400:&CU»SOI» 42i 

GPPiNr C34tr.(j 

))i"lC"!C3»tO( 
j));:IF Ft3)-f 
AND SO3&0I0 4 

<ii 



suite page 15 



la page pedagogique 



la page pedagoZZ 




a bientot. 



BLACK JACK 



Lo 27 julllel. un numiro 
quadruple pour l« prlx de 3 
numoros. 4 programmes 
par ordinaleur, 64 pages! 
24 Irenes Chez votre mar- 
chand de Journaux. 



Vofci un classique des jeux de carles. Le but? Ne pas Rechargez le premier programme, en laissant le magneto en mode 

depasser 21 ... -play*. Faites run. 

r% ■_ .. .a* .*. ■ Duranl le deroulement. repondre par OouN aux questions suivan- 

Robert CHAU leS : 

Doubler: Prendre une seule carle et doubler la mise (nest possible 

Ce programme est en deux parties: la premiere servant a redefinir que si le score est superieur ou egal a la mise). 

tes caracteres. la seconde etant le jeu lui-meme. Poor le rentrer: Partage: Partager le jeu en deux jeux dont la mise de chacun est 



Entrez la premiere partie 
Sauvegardez-la sur cassette, (venfiez.) 
Uberez I'espace RAM. 
Entrez le programme principal 
Sauvegardez-le {verifies...) 



' FSET TOO 

OOO rLF«MO;C»-CH(I«i 

0O3 FOwT»(12ai-M»2. ] 

140, 132* 

OlO F0WT*(132>--?4.70O. 237,733,737,200, 

u,r 

070 F0WTail2*l»*l*2, 1 






.132,140- 

1030 roMT«< 

13*- 

IO40 FOKT*< 

.140,132" 

1090 F0MT4H134K 

6.8' 

10*© FCMT*tl31l< 

.132,140* 

io70 nanuissx 

1120 F0MT8M3*)' 
.128,232- 

IIM F0HTatl37». 



11*0 ( 



30I--1V2, 
341 -'24, B 



140. 136 



36. 200 . 732 
1*7,132.140.148, 
74, «, 134.72,332, 
128,140,144,144, 
a, 13*. 72, 72,200, 
128, 132, 13*. 140, 



88.148 
72,8.13 

36,144 
72,8,24 

36, 132 



■"8,72, 136, B, 136,72,8.248 



•8,13*, ] 



.120.232* 

.**•• 

1210 F0trr*u*2l--128.132.178,12i 

,128,232* 

1720 FOMT*(143l--a. TOO, 136,136, 

,248- 

1740 F0KT«ll44>«*t78,144,17*,I4< 

, 128, 232* 

:23o Fo-rr*(i43i--a,77, i*8,i*8,ii 



34,200,200,8 



1770 FONT* < 1461- 
1280 F0MT*I147>' 



1330 FOWTT*ll 
, 128,232* 
1340 FOHT-MI 



■•8,200.72,200,72 
■■128.13*. 144. 13*. 
■ •8,200,72,200,72, 
•-128,13*, 128, 128, 
•-8, 200,72,13*, 8, 8, 



13*0 FOWTar 1341-M29, 136, 144, 1 

,128,232- 

1*00 FONT* 11331 --B, 700,8, 200,72,200, 8.- 



1420 F0t*T*<I3* 

.128,232- 

1430 FONT8II37)a*8,e,a 

143© FONT* I 138 

, 128,232* 

i4*o fo«t»ii3*i-"8.20o, 72,200,72,200,8,2 



48,136, 132 
1.8,200,9,8,248* 



1480 F0NT*I?74|. 

,129,232* 

14*0 F0MT*<223I- 



128,136,1 



l,?7,20O,B,2OO.8.24 



1330 INITRI.-AA*,28 

1360 **--CLOAD**C***»L*--Ca*CM«»»l 

LETf.Ca 

1370 »*-*** *AA*.ca-CMR*u:;i»*RUN' 



28,136 
200,8,2 

44,13* 
200, 8. 2 

32,132 



44,136 



-01 



egaie a la mise precedente. 

Pour ASSURANCE (miser sur le black Jack du banquier), appuyer 

sur espace ou RETURN. 

Pour se servir d'une carte: "C". 

Pour arreter le service des cartes (servi): "S". 




3 ONCRRORGOTrWOOO 

10 CLS:CLr*R*oo:sc-30:COHi 

•o cls:fori-oto3:loca'te 3< 
: jack-i :beepis*< t»i ' , 1 :m 

:o FORI-OTO30:BEEPIH0D13, 1 



:GOSUB 



r'EHPLACEKENT . 



*30OO5C<-0THEWi: 



I130ELSEIFASCIX* 
HEN160ELSE130 

:beep30,i:gotoi 



( >otwencl5:pfstopfi: 



'1 THENGOSUBlf 



340 0OSUBI7OO 

330 IFP-21AMDIVZI1 !->10*V".(2)->l) 

t *oo : xT-o : ooto600 

360 IFSCCMIfltlTHCN 430 

370 LOCATE 1 3 , O; PP I MT * DOUBLE? * I 



8*8* 


:G0SU8 


1300 




x-s: 


-o:c 




GO SUB 


400 


6,3 










(SOTO 










LOCATE 13 


o 


print 





460 IFP>->220RSV«6TWEN I 



■■C***TE-i;l0CA" 



*t*N 



480 x»->iNKEYa: if: 

THEN490ELSEIFX4--S-THEN 6OOELSE480 

4»o s-s*i:gosubi3oo 

300 BEAD CrGOSUB I700:LOCATF_ 13,0:PI 
Vovf' I : LOCATE 14, l: PRINT USJNG""a**i 
310 X-S:L-0:GOSUS I40O 
320 



1 -3THEMNY.O 



ITHENMY-OELSEIF 



■M 


S-7:G0SU8l3OO:CXil>-TC:V%<ll-TV:GOSU 


11700 


70O 


CLS:RESTORFt 330 :L-2:F0RX-1T02: READ c 


703 








710 


IFP-21ANDIVH<l)-10«VT,l2>-llrMEN720EL 


■no 


LOCATE 3,3:PRINT*BLACK JACK -•(•FORI 




3:beepio*i , i :ncxt: beepo, i 




IFIS-OTMEN 800 


740 


LOCATE 3,2'.PRINT*ASSURANCE • I 'FORI 


-lTO30:BEEPtN0E>10,l: NEXT 


730 


LOCATE 1 1 ,2:PRlNTUSING****a*13*lS 


733 


7*0 


SC-SC»3»I 5: FORI -1T030: BEEPO, 1: NEXT :L 


OCA 


e 3.2:pr:nt-score -| 


773 


LOCATE 3,3:PR1NTL€FT*CB4, 14) 1 




locate 7,3:ppintusing***"»*i*isci :for 


I*1T0121( 


000 


LOCATE 3,2:P»INTLEFT*IB*,l3f i: LOCATE 


11-1 




1FI I >PTTHEN70 








IFGIIIl-STMENOOSUB 240O:GOTO923 






829 


II-II»l:GOTO 803 




IFP>«22TMENII-i:00TO B33ELSEGOT0830 


033 




040 






IFP 1 I I J >-22THENG0SUB 240OELSEG0SUB20 


00 




■49 


II-II*l:GOT0B33 


830 


IFS>-60RP>"MYTHEN 803 


ess 


IFP>«I7ANDRND<01 J.3THEN 883 



860 S-S*i:gosubi30o:readc 

8*3 l-2:x-s:gosubi40o 

870 GO9UB17O0 

873 LOCATE 14,3:PRINTUSING*R«*I 



893 0OSU82I* 



20OO:G0TD ' 



020 C0*I21-CHR»I 129)' 
030 C0*l3>-CHR»<130) ■ 

040 CC"*I41-CHR«<131 i ■ 

030 va»ii3j-chr-»u3b: 



STHENG0SU8 ]*00:0OSUB 20OO: 

'UI)<-2ITHENGIIII-2:GT 
I OOSUB 2400: GOTO 920 






I)»CMR*I149> 
ll«CWR*II31) 
!J-CMR*<133) 
!).CHR«ri33l 



1330 locate 6,3:prikt«sco»e: *i 

1340 LOCATE 17. i :p»ib!1!',iwii- s ■.:,: 

1330 LOCATE (2,3:Pft'NTi/5iNG-i-**aa'iSC| 

1360 IFIS >-«l 1 1 I0RSC-0IHEN14O0 

J370 x«-r**KEYa: IFKa« - *TMEwl370 

1380 IFy»-' *THEN13*0EL5CIFASCIX*I>!3TMC 

NI60OELSE1360 

1390 l«*l«» I t ■C*tC-l :BEEP30. 1 :G0T0I340 

1600 BEEPI2, l:>CEP21, 2: BEEPO, 1 

1610 LOCATE 3,0: 



NTLEF 



<B«,13I I 



1*30 


LOCATE 6,3:P»INTL£FT*I»4,131 1 




1*40 


RETURN 

P»o:fl«o:fopt-itos 




1720 


W-VX(Ti:P-P-iO»(W>«IOI-W».i 

1= VV- i.'.NDi' - JTH| Ht-_- 1 


/V<10. 


1743 


IFP-2ANDFL-! IHENP«2I 






IFP< - 12ANDFL-1 THEN IFP >!OTHE«P 


31CLS 


EIFP 


-IOTME«P"P*10 












LOCATE S.OIPRIKT'PAPTA&E - " 




1020 


1FTKETI"0'ITMEN1830EL5E1FT«!EY 
IFSO-HI II1TMENIB60 


*»4*»T 


1830 






LOCATE 3,0:PR1HT*INP0SSI1LE* 1 


LOCAT 


E 3. 


:PRINT*>cor> o«> ••••1*1 




1830 


Foa:-iT03oo:NExT:GOTO iaeo 




18AO 


PT-2:C11(21-C1(21 EVlStZlaVSta 


:ec-s 



IB70 HI I2)»MI II ) :LOCATE 3,0: P8INT*CDWIEN 

CONS PAR'ILOCATE 7 , 1 : PB I NT • L A DROITC'I 

1873 FORI-1T0300:NCXT 

1880 LOCATE 3,0!PRINTLEFT*(B*,131 liLOCAT 

e 3, i:printleft«(b«, I3H 

1890 RETURN 



!'"'■" 


LOCATE 6,0:PaiNT'BLACK-JACK ■ -( 




IFOI 1D-0THENG1I I 1-3100T01930 






two 


fori- i T03: BEEP! 3- I, I: next: LOCATE 3. 




NTLEFT»(B«,13) 1 


19AO 


RETURN 


2000 


IFOI I I 1 -3THFN& III) -OELSEGI I I I -2 




LOCATE *,o:print- gaone *i 




fqbj-itoio:beepjhoD3. i:mext 




LOCATE 6.0:P«lNTLE'TaiB*,14ll 


20 SO 


sc-sc«hkii)#g(IIi 


20*0 


RETURN 



2170 


e-o:fori-i 


0LENIH41II ) ISTEP3 








111,1 


ii:locate 24C,o:pr 










raiN- 


wMtv»tno> 


II), 1 


i,2i:locate 


3M,ll 


2200 


BEEP143-VAI 




:e-E>i:hcxt 




7210 


















2220 


RETURN 








2320 


LOCATE 6,0 


PRINT 


perdu -i 






FORJ-24T01STEP-1 


BCEPJH008, I 


I4EXT 


2340 


LOCATE *,0 




i icm 


• 1,1 


beepo , i 










RETURN 








2400 


F0R1-1T03:L 


OCATE 


7,o:prinTlE* 


rtiM, 


2420 


LOCATE 6,0 


PRINT 


EGAL ITS -1 




1430 


FORJ-IT030STEP10 


beep-, it ran 




2440 


NCXTI:SC-S' 


mill 






2300 


F0B1-OTQ-. 
LOCATE 0, I 


PRINT 


., 




2330 




LOCAT 


j, iimiwr* 


r-llM 


EP90 


I1HUCTJ 








2340 


LOCATE 19, 


IPRIN 


* ' 1 : BEEP90 


11 NEXT 


2330 




RE VOIR.,,' 






F0R1-I2T0ISTEP-1 




.1) 


2970 


FORJ-OT03- 


:locate 1, i:print 


-•A»l 


IBEEPIMODI J-ll , 


:next 










O.OlCNB 




4000 


IFERN-7TMEN40I0E 


5Ecls:print 


CRREUH 



:PRINT*«E«OinE 1NSIJFF 



Surfe de la page 14 





«78: JF J»=-5"S0r0 




"8ROU0...C EST 


■ Mfi 20: 




URSOR 9 


:;, "iPRWT ' ..'i 




^ -.38 




GfiGNE'-'^GOrO 






:PP1MI " 




ajLat r-,/~ -1-nO 


J i=!8:IF ffpa'l'Lfl 




750 






■SNEXT Ii 


■ .', v-'3." 


^pr pO «^ v 


** 0*1 J If D^SlET 




B281CURS0H 1?:W01I 






uoir 


838:PPINT "L «« ft 




C . 




r)0 = ppiNr -Ei l 




}?» 


uQl t BiPPlNI ■ 






430: J F ;t 2 




f rPESo»°7" 


r4L<IRCTURH 






■)ESP:PPlNt " 




- On 28: 




',38:uoi T 8: CURSOR 


6901U*UOL <nia» (X 




■: IF 






PAUSE (Xi . ; • 




l?:PR!Mf - 






INXEV* ■""GO) 


i N0RD-7SUO'' 




ft ■ ffSOR 28i 










770 


948:PflU^E 'L»i COM 




RRJNT OBtOJt 






>m: If VIO180R ** 


708 


'•■INKEfi : JT 






K rfl '■■:-'. 






L >)0OR T*c<aop 






ORINT ■' 1 ■ 




^20: IF itr" j' L Et 




BIBEEP l,r«0, 58: 


*4L< J RETURN 




I*4'N"MA1T : 


r olot -O" »auc 




-0-1MF r>0LET 






7I0:U-Ufll. tniD* " 










0=4 






KVKI, X4Li 1 >> 


798 


wflll i PAUSE " 


850:PR1NI "C3> —J 




518: IF I«=-.-LEt 












-oial .on o>o< 




^0-?:IF C<lLEr 






728: IF 0-3AH0 X-9 






1.-1PP1NT ■<,> 


"pint x;":";r; 


0^0*4 






lei s-ia-y 


elan 


PRINT -au-.f-.f-0 


--» (!*■;- tour 




528: BEEP 1,58,58: 


8: CURSOR 28: 




730: IF O-2AN0 V*B 








W.l*'lf4<£t* 'If 


GOTO 158 


GOTO 448 




l-E T S=1*X 




hq-.i":pRInI " 


eeeipRiNT -<s> — ) 




538:IF Ftl)-1 






^40:F>e:IUPn 








68: IF IBO-J-OWD 


CUPS0P 28: 


GOTO 650 




-58:U0JT 1PRINT '£ 






c«r":PRlNT -<2 




fRlNi -nuR- •"; 


rjia-lf Pt=ICUR30P 




n-j imE »I88;" 


910 


PRINT -«r> ur. m 


> — > coordonn 




:B£EP 1.255: 


3:CLS :S£EP 1, 




• IrH/ta.'lENO 










CURSOR 20: 






768:wct| t 20JFOR l» 






979:POUSC " BO 


seep i, :sa: 


"RlHt 0*<0>;: 






010 2:CURSCR 8 


628 


PPINI -Uoui tn 


NNE CHONCE' •-■■ 


GO 10 4S« 


GOTO 458 


ufil T B»:PPINI 




:PR1HT -LftBYRl 




t'«7 *r. X=8, V* 


RC TURN 



K7, DISK AND CIE appleii 



Le 27 juillfft. un num*fo 
quadruple pour l« pri* de 3 
numtros. 4 program rr.es 
par ordinateur. &4 page?' 
24 francs chez voire m»f- 
Chand de journaux. 



Hya une cassette a droite, sur I'etagere de gauche de 
votre bibliotheque en acajou, savez-vous qui est 1'inter- 
prete du troisieme morceau de musique de la face B? 
Non? Alors tapez ce programme et a vos cassettes! 

Gerard SEBBAH 

Le programme K7 ci-joint. permet la geslion de 99 cassettes de ma- 
gnetophone 7 II offre pusieurs possibilites: 

Une mise a jour avec une saisie presentanl un maximum de securi- 
tes (notamment I'inhibrtion des caracleres "," et V dangereux dans 
linstruction INPUT, des tests verifiant la comptabilite des valeurs 
entrees: amsi il est impossible d'entrer deux litres ayant une locali- 
sation ktenttque...). Cette mise a jour offre trois options: ajout. sup- 
pression, modification 

Une consultation des cassettes donnant la possibility de connaftre le 
conlenu dune cassette, la liste des litres et des interpretes enregis- 
tree. ta liste de lensemble des litres d'un interprete et 1'ensemble 
des interprets d'un meme litre. 

Un tri dichotomique indispensable. En effet. dans !a partie consulta- 
tion, la recherche du contenu d'une cassette a ete optimisee, e'est 
pourquoi elle teste la Jin de la cassette et le passage a une cassette 
de numero superieur (ligne 760). II faut done que les cassettes 

1 REM •• ENTPEZ D'ABORO CE 399 REM 

2 REM •• PROGRAMME pqur 
' CREER -BNUS" 



sotent triees dans un ordre croissant. Le tri permet de rentrer les 
litres dans n'importe quel ordre. 

Le programme etant relativement long (13 Ko). il est possible de le 
raccoureir en suppnmant les REM el en suppriman! les paragraphes 
Explications (lignes 1140 a 1170 et 1189 a 1430). I! faut alors rem- 
placer dans la ligne 1220 "GOTO 1 140" par "GOTO 1 180". 
La fin du programme contient en REM des explications concernant 
les variables et la structure du fichier indexe utilise (FK7). 
Ces renseignements sont destines a faciliter une modification du 
programme (plus de cassettes, gestion de disques. de cassettes de 
magnetoscope...) Attention, toute modification des longueurs des ru- 
bnques aura des repercussions dans FK7 et FK7B declares aux 
lignes 1030 et 1480 sous peine de voir le fichier de cassettes inutili- 
sable. Faire attention egalement a la longueur de BLS . 
II est indispensable de desactiver la carte evenluelle 80 colonnes 
car elle modifie le code de la louche -. . D'ou ('instruction "PRINT 
CHRS (21)" en debut de programme. 

Le programme debute par un "ONERR GOTO". Une (ois que le fi- 
chier K7 contient au moins un enregistrement, cette precaution de- 
vient inutile et on peut supprimer cette ligne ainsi que les 2 dernie- 
res qui s'y rapportent sans que cela gene le programme. 
P.S.: Le sous-programme en assembleur permet de jouer Tindica- 
tif". Pour changer lair, il suffit de modifier tes lignes de DATA qui s'y 
rapportent. 




: PRINT - S'AFFICKMT LA FAC 

E. LE N*DU COTVTEUR, LE T1TR 

E, ET, EM DESSOUS, LMHTERP 

PETE WH S LE S CAS -l: 

INVERSE i PRINT - 

PRINT - ET -II INVERSE J PRIM 
-3-;: NORMAL 

PRINT - LALOCALISATION ET L 

'INFORMATION DANS 

LES CAS -(: INVERSE : PRINT 
-*-i: NORMAL 1 PRINT - I ■!■ 

INVERSE : PRINT -3-I1 NORMAL 
: PRINT - IL N'V A OLC LA LI 
STE": SOSUB 33 1 HOME 

VTAB 10: HTAB li PRINT " PO 
UR AKRETER LE DEFILEMENT OU 
LE FAIRE": VTAB I2t PRINT -R 
EPARMR. TAPEZ CTftL-S- 

VTAB 16: HTAB 3; FLASH 1 prin 
-ATTENTION-; NORMAL 

DEVEZ JAMAIS TAPER L 
T LES " 1 ' . -: VTAB 21 
PRINT - AU CAS OU VOUS LE 

feriez, je me r-Eui vous bar 

ANT1R MES REACTIONS.-: GOSUB 
RETURN 



vous me 



REM 
REM 



CHR* 



4 REM 

ION > 

20 AD ■ 

30 FOR I • (1 to H 

40 READ X: POKE AD 

SO :i.t 



REM AJOUT D'UN TITRE 

REM 

FL - OiXL*(EE,I> - VL*(6>:XL« 
(EE.2) - VL*(4):XL*(£E,3) - 



730 REM CONTENU D'UNE 



60 PRINT D*;"SSAvE BM*)S.A76S,L25 



IOC DATA 184,160,0,173,48,1 
6, 26, 202. 2-4, 2KB. 232. 1< 
208,243. 196,25,240.4, i< 
BO, 232,96 

9 PRINT CUR* (21 > : REM DE 

VAT ION 80 COLONNES 

10 ONERR GOTO 3320 

11 GOTO 1023 



REM 

REM ATTENTE FRAPPE CLAVIER 

REf, 

FLASH : VTAB 24: PRINT - PRE! 
SEZ UNE TDUCHE APRES LECTURI 



NIERE DONNEE > "XL*(Ff 
430: HOME : GOTO 130 
REM 



REM DELIMITATION DES FENETR 

ES 

REM 

POKE 32,12: POKE 33,28: POKE 
34,0: POKE 33,11: RETURN 
POKE 32,0: POKE 33,40: POKE 
34,23: POKE 33,24: RETURN 



REM 

VTAB 10: PRINT "N* DE LA CAS 
SETTE (2 CHIFFRES MAXIMUM)"! 
VTAB 12: INPUT "> "lTD*i'TD* 
» RIGHT* l-OO" * TD*,2)i IF 
TD* " -00" THEN 740 
HOME : INVERSE : PRINT ■■CONT 
ENU DE LA CASSETTE N* "I: NORMAL 
: PRINT " "TD»: PRINT : PRINT 

-FACE-N- TITRE INTER 

PRETE": GOSUB 810 
C - O: FDR I - I TO FFi IF LEFT* 
(XL*(I,11,2) > TD* THEN I - 



: HOME ; 



■RIN 

POKE - 16368,0: IF 

16360) > 127 THEN 
GOTO 60 



i VTAB ll FDR I - 
I TO 3: PRINT LEFT* (W«(I) * 
' -,12>< PRINT I NEXT 

: INVERSE : VTAB 14j PRINT " 

<H>ODIFICATIC*l ": VTAB 16: PR1 
- <S>UPPRESSION " 
VTAB 18: PRINT - <DEL> POUR 
FINIR "i NORMAL : GOTO 410 

REM MODIFICATION / SUPPRESS 

ION 

REM 



IF 


.EFT* 


XL*< 


I, l>, 2) - TO* 


THEN CT - 




*INT MID* (X 




11,3, 


)--- 


RIGHT* (XL»( 


1,1) 


3)" 


IL* 


1,2)1 PRINT " 


NEXT 


: IF NOT 


CT THEN MS* - 


'*** 


CETTE 


CASSETTE N'EXISTE 



790 BOSUB 33: 
799 REM 



RE A JOUR": VTAB 11; INVERSE 
: PRINT M B-: : NORMAL 

I PRINT -. LA CONSULTER-: VTAB 
13: INVERSE : PRINT "C"i: NORMAL 
: PRINT -. FAIRE LE TRI DE V 
OS CASSETTES" 

) VTAB 16: HTAB 9; PRINT -PRE 
SSE? LA LETTRE CORRESPONDANT 
E": VTAB 19: HTAB 2: PRINT ■ 

ET SI VOUS N'AVEZ PLUS BE 

SOIN DE MES": VTAB 21: PRINT 
"SERVICES. PRESSEZ LA TDUCHE 
"II INVERSE : PRINT "DEL";: 
NORMAL : PRINT - ..." 

) HTAB II VTAB 24: FLASH ■ PRINT 
CH*i : GOSUB 60 

) NORMAL :CH - PEEK C - 1636 
B)i IF CH - 255 THEN 1450 

) CH - CH - 192: IF CH < 1 OR 
CH > 3 THEN CALL - 1981 GOTO 
1O90 

) HOME :TI* - - TRI -j IF CH - 
1 THEN TI» - - MISE A JOUR " 
: GOTO 1140 

) IF CH - 2 THEN TI* - - CONS 
ULTATION " 

) INVERSE : PRINT TI*"DES CAS 
SETTES -i NORMAL : VTAB 6: HTAB 
3: PRINT "VOULEZ-VOUS OUELOU 
ES EXPLICATIONS ?-| VTAB 8: HTAB 



EXPLICATIONS TRI 

) HTAB 1: VTAB 4: INVERSE : PRINT 
" "l: NORMAL : PRINT - JE P 
EUX TRIER VOS CASSETTES.": VTAB 
7: INVERSE . PRINT - -;: NORMAL 
: PRINT ~ CE 0U1 VOUS PERMET 

DE FAIRE UNE MISE A": VTAB 
9: PRINT "JOUR DANS UN ORDRE 
OUELCONOUE. " 

) VTAB 12: INVERSE : PRINT * 
-:: NORMAL : PRINT - SI CELA 
VOUS 1NTERESSE. VOS CASSETT 
ES": VTAB 14: PRINT "SERONT 
ALORS CLASSEES EN ORDRE CROI 
SSANT-; VTAB 16: PRINT "EN F 
ONCTIDN DE LEUR NUMERO. - 

> HTAB 1: VTAB 18: INVERSE : PRINT 
" "i : NORMAL : PRINT 

■ VOUS POUVEZ SURVEILLER LE 
BON-i VTAB 20: PRINT -DEROUL 
EMENT DU TRI.": VTAB 22 

> PRINT "VOULEZ-VOUS FAIRE UN 
TRI - 10 / N1-: GOSUB 33iC2 
- PEEK < - 16369): IF C2 i 

■ 206 AND C2 < • 207 THEN 
CALL - 199: GOTO 1410 
) RETURN 

> REM 



REM 



) GET R»: IF I • 1 AND (R*) - " 
n- OR R» - "S"l THEN GOSUB 
3O0: GOTO 130: REM MODIFICA 
TICN OU SUPPRESSION 

13 AMD ASC <fi*i '. > B AND 
X > L6(IJ THEN CALL - I9Bi 
K - K - Il GOTO 130: REM TE 
ST DE LONGUEUR DE LA CHAINE 
DE CARACTERES ENTREE 

> IF ASC 1R*1 - 11 THEN I • I 

- II i 1): SOTO 140: REM FL 
ECHE HONTANTE , 

> IF R» ■ -," OR R* - "t" THEN 
NG» - "••• CARACTERE NON VAL 
ABLE •••-:K - K - ll GOSUB 2 

70: GOSUB 430; HTAB LEN (HO ; 

•> * 1: VTAB I • 2 - 1: GOTO ; 

130: REM INHIBITION DES CAR ; 

ACTERES "," ET ":" 

> IF ASC <R*1 - 10 THEN I - I 

+ (I < 9)1 GOTO 140: REM FL 
ECHE DESCENDANTS 

> IF ASC (R*> - 127 THEN RETURN ' 
i REM <DEL/ 

> IF ASC 1R*> - 13 THEN 29Q: REM 
^RETURN.- 

) IF ASC (R*> ■ 21 THEN R» - 
- -i IF LEN <VL*(I) ) > - V. 
THEN R» - MID* (VL*(I),K,1 
): REM FLECHE — ) , 

) IF ASC (R*> < •> B THEN MO* 

- HO* *■ R*J PRINT R»i : GOTO 
130; REM SI LE CARACTERE SAI 
SI N-E3T PAS LA FLECHE < — , 
CONCATENATION DE LA CHAINE H 
0* 

I REM 

J REM FLECHE '-- , 

j REM 

) IF HO* • "" THEN CALL - 19 

B:K - O; GOTO ISO 
i I - y - 2: CALL - lOOB: CALL 

- 868: IF LEN <M0»1 « 1 THEN " 
HO* - ""el- - O: GOTO ISO , 

■ MO* - LEFT* (MO*. LEN <H0*> - 

1): GOTO ISO 

' PEH ■ 

. REM MESSAGE D'Er.REUP 

REM 

i GOSUB 440: HOME : PIIINT MG*: 

1 FOR J - 1 TO 10: CALL - 1 

98: NE/T ■ HOME : RETURN 



GOSUB 440: HOME : INPUT "N- 
CASSETTE ? "IVL*(1):VL*(1I - 

RIGHT* COO" * VL»(l),2)i II 
-FACE ? , '!VL*(2>: INPUT "N* 
COHPTEUR -> -1VL*(3):VL»(3> - 

RIGHT* ("000- * VL*(3),3):2 
* - VL*U> * VL*(2) * VL*(3) 

( 
FOR K - 1 TO FFt IF XL*IK,I) 

■• Z* AND R* - "S" THEN XL*1 ( ( 
K,I) * "•": GOSUB 430: RETURN 
: REM SUPPRESSION 

IF XL*<K,1) - Z* THEM EE - K * 
:FL - 1:VL*(4) - XL*(EE,2):V 
L*<5) - XL*(EE,3): GOSUB 430 
i FOR I - 1 TO 3: VTAB I • 2 

- li PRINT VL*II): NEXT : RETURN 
I REM MODIFICATION 

NEXT :MG* " "•*• JE NE LE TR * 

OUVE PAS •••"! GOSUB 270: GOSUB 

430: GOTO 130 * 

REH 

REM CONSULTATION 6 

REM s 

TEXT i HOME : INVERSE : PRINT * 

" CONSULTATION DES CASSETTES ' 

": NORMAL : VTAB 4i HTAB 13 
: PRINT "••• SOMMAIRE ••»": INVERSE 
VTAB 7: PRINT "A"l: NORMAL I 

PRINT " CONTENU D'UNE CASSE ' 

TTE"I INVERSE : VTAB 9i PRINT 
"B-f: NORMAL : PRINT ■ INFDR ' 

HATIONS SUR UN TITRE": INVERSE 
: VTAB 111 PRINT "C"l: NORMAL ' 

I PRINT " INFORMATIONS SUR U ' 

N INTERPRETE" ' 

INVERSE : VTAB 13: PRINT -D" ' 

|l NORMAL t PRINT " LISTE DE 
S TITRES": INVERSE I VTAB 13 ' 

: PRINT "E"I: NORMAL i PRINT 
■ LISTE DES INTERPRETES": INVERSE 
: VTAB 17: PRINT "DEL"!: NORMAL 
: PRINT " FIN DE CONSULTATIO 
N DES CASSETTES" 

HTAB 1: VTAB 24: FLASH : PRINT 
CH*! : GOSUB 60: CH - PEE! ( - 
163681 - 192: IF CH - 63 THEN * 

RETURN 
It CM I OR CH ■■ S THEN CALL ' 

- 198: GOTO 3B0 

NORMAL ; HOME : ON CH GOSUB 
74O.620, 623, 830, B30: GOTO 53 



800 REM DEFINITION DE LA FENETI 

E D'AFICHAGE 
90! REM 

BIO POKE 34,4: HOME : SPEED- 19i 

: RETURN 
839 REH 



14 



RIN: 



940 REM 



TITRES DU DES 



REH 

TI* - "TITRES "JRU - 2: IF CH 

- 3 THEN TI* - -INTERPRETES 

"tRU - 3 
HOME : INVERSE : PRINT ■ LIS 
TE DES "TI»: NORMAL : GOSUB 
81&: PRINT XL»(1.RU): FOR I - 



GOSUB 60: IF PEEK ( - 1636 
8) < > 206 AND PEEK I - 16 
368) < > 207 THEN CALL - 
198: GOTO 1150 

) IF PEEK ( - 1636B) - 206 THEN 
11 BO 

) HOME : INVERSE i PRINT TI*" 
DES CASSETTES ": NORMAL : POKE 
34,2: POKE 35,23: ON CH GOSUB 
1200,1300.1390: TEXT : HOME 
i IF CH - 3 AND C2 • 206 THEN 

1050 

> ON CH GOSUB 470,330,900: GOTO 
1050 



REM --- 

HOME :TI* - "AU REVOIR..."t 

SPEED- 200: FOR 1 - 1 TO LEN 
(T1*):R* - MID* (TI*, l,t)i IF 
R» • - " THEN NEXT 

FOR J - 1 TO 13: HTAB I ♦ 1 
->: VTAB J: PRINT II CALL 

- mOB: FRINT " "i: NEXT : CALL 



100B: 

TO 30: f 



PEE! 



163361 



- O: PRINT D*"0PENFK7B,L73 
': FDR I - 1 TO FFi IF XL* ( I 
1) < > "•" THEN K - K • ll 

PRINT D**'WRITEFK7B,R"Kl FOR 
I ■ 1 TO 3l PRINT XL*(I,J)i MS 



190 REH EXPLICATIONS HISE ( 



RIN 



REH 



2 TO FFiCT - Oi FOR J - 


1 TO 


I - li IF XL*(I,RU) - 1 


-*<J, 


RU) THEN CT - HJ - I - 




NEXT : IF NOT CT THEN 


PRIN 


XL*a,RU) 




NEXT : GOSUB 33: TEXT t 


, lOME 


: RETURN 




REH TRI 




REM 





PRI 



PRINT t 

Di-UNLOCKF!. 1 



D»"WRITEFK78.F 



RINT 



HOHE : VTAB 3: HTAB I 
:RSE 1 PRINT ■ DEBUT DU 
: NORMAL : SPEED- 233: 



• 




• 1 


1,3): 


XI • 


I, I) > 


1 , 


ll 


(1 1 


1,2) 




L*(L,21 








[L*(L 


'.) 


XL*IL, 1 


R* 


xt 


ML 


2) - 


V* 


XL*(L.3 


Z* 


I 


- I 


- PA 


IF 





> MOHE : VTAB 3: HTAB 3: PRIN 
"CETTE MISE A JOUR PERMET 3 
OPTIONS :": VTAB 5: INVERSE 

: PRINT " "i: NORHAL : PRINT 
■ AJOUT DE NOUVEAUX TITRES. 
PDUR CELA 1LSUFFIT DE REHPL1 
R LES RUBRIDUES. " 
) VTAB fl: INVERSE : PRINT ■ " 

l: normal : print " hodifica 
tion de rubrioues anciennes 
i vous entrez - m' a la rubri 
due intitulee - n' cassette*, 
puis vous refondez aux ou 
Estidns. ■•: 

> frint " les ancienn 

es valeursapparai5sent. prdc 
edez alors comme pour un ajo 
ut.": vtab 15: inverse : prii 

: NORMAL 

) PRINT " SUPPRESSION DE TITR 
ES ANCIEN5 : ENTREZ _ S - A LA 
RUBRIDUE - N* CASSETTE". PUIS 
JX QUESTIONS." 
VTAB 19: HTAB 



l-DELETEFI 7": PRINT D*"RENA 
MEFK78.FK7": PRINT D*"LOCKFK 
7": REM IL V A CREATION D'UN 

NOUVEAU FICHIER POUR OU'EN 
CAS D' INCIDENT, L'ANCIEN FIC 
HIER NE SOIT PAS PERDU 
I FOR I - 1 TO lOOOi NEXT , HOME 
: END 



D N • 






GOTO 930 

J • J * ll IF J > K THEN 910 

I GOTO 940 

1 VTAB 10: HTAB ll INVERSE I FOR 
I - I TO 31 CALL - 1981 NEXT 
i PRINT " FIN DU TRI ": NORMAL 
: VTAB I4i PRINT "PRESSEZ UN 
E TOUCME"! GOSUB 60: SPEED- 
190i "" 



6 1 REM 



INITIALISATION / PRE5E 



1021 REM 



CALL 



868: 






D»> THEN MO* - VL*'I1: PRINT 

MO*: GOTO 330 
i VL»III - HO* 
' IF !VL»(2) - > "A" AND VL*( 

2) '■&") THEN MG* - "••• 
ENTREZ -fl' OU FT •••": GOSUB 

27'.r: GOSUB 430i GOTO 1 40 
■ HE«r : BOSUB 440l MO* : PRINT 

"VALIDATION 7 (O/Nl ) "li BET 

R*! PRINT fi»: IF R* C "O" 
THEN G05UB 430i HOME : GOTO 

130 

> VL*(I) - RIGHT* ("uO" * VL*( 
1),2):VL»(3! - RIGHT* ("00" 

* VL*(3l .31 |VL*(6) - VL*(!) 

• VL*<2) * VL»<3)t IF FL THEN 



TI* - -TITRE":V» - TI*:RU - 3 
:R* - "INTERPRETE": GOTO 630 
i REH LISTE DES INTERPRETES 
D'UN MEME TITRE 
TI* - -PRENOM ET NOH SEPARE5 
PAR UN ESPACE"lV* • "NOM"iRU 
- 2lR» • "TITRE"( REH LISTE 
DES TITRES D'UN MEME INTERP 
RETE 

VTAB 101 PRINT TI*i VTAB 12: 
PRINT "<32 CARACTERES MAXIM 
INPUT ", "|TD 



i SPEED- 253: TEXT : HOHE : D* 
- CHR* (4):CH» - " FAITES 
VDTRE CHOIX "!BL* - ■ 

i DIM VL*'6),LG(5) ,H»(3)tVL* 
(21 - "A"i GOSUB 1310: FDR I 
■ I TO 5: READ W* ( I ) ,LG(I)i 



"LES CARACT 
ERES '," ET 'l* SDNT INMIBES 
, "I GOSUB 33: HOME 
I VTAB 3: PRINT " FDNCTIONNEH 
ENT DE LA SAISIE fl VTAB Si 
PRINT "VOUS VALIOET LES VAL 
EURS AVEC "II INVERSE : FRINT 
"RETURN": NORMAL 
/ PRINT "SI LA VALEUR A ENTRE 
R EST I DENT I DUE A CELLE 0£ 
LA MEME RUBRIDUE DE LA SAIS 
IE PRECEDENTS, INUTILE DE LA 
RETAPERi FAITES" 
) VTAB 91 INVERSE 1 PRINT "RE 
TURN"t: NORHAL i PRINT ". ME 
HE CHOSE DANS UNE HODIFICATI 
ONLORSOUE LA RUBRIOUE EST IN 
CHANGEE-": VTAB 13: PRINT "P 
OUR VOUS DEPLACER SUR L'ECRA 
N, UTILI5EZLES FLECHE5.": VTAB 
19: INVERSE : PRINT "DEL"! 
J NORMAL : PRINT " VOUS FERME 
T DE FINIR LA MISE A JOUR. "I 
GOSUB 33l RETURN 

> REn 



REM PRESENTA 


TION 




PRINT D*' 


BLOAD BHUS 


i REH 


ADRE5SE 


»30< 


-> »3ie 


* - "---* 


VOI 


CASSE 


TE8- 






~I OIM LA*( 


LEN (A*) : 


1 FOR I 


TO LEN 


A*) lLA*<l 




MID* 


A*. 1,1) 


NEXT 








FOR I - 1 


TO 


127:8* 


- 8* • 


-i NEX' 


I I 


- FRE 


(0) :C* - 


LEFT* !B* 


,39) 


iE* • 


CHR* I 1 


INVERSE I 


FOB 


I - 17 TO 19 STEP 


?t VTAB ll 


PR! 


JT ■ 


"U HTAB 


7i PRINT 




-I NEX 


i VTAB 


Bt FOR I 




TO 37 STEP 361 


HTAB I : C 


UM1 




NORMAL 


PRINT -X 


"li 


INVERSE r PRINT 



) PRINT i VTAB 16i PRINT C* 

) 8 - Oi FOR L - LEN (A*) - 2 
O TO 4 STEP - I 

) VTAB 16 

I C* - RIGHT* (C*,37l • E*i PRINT 

C*iLC* - FDR I • 1 TO 

21 VTA8 I6i HTAB li PRINT RIGHT* 
<C*,39 - II ♦ LEFT* (LC«,I) 
i G0SU8 1B901 GOSUB 1900: NEXT 



NEXT 



■ C« ' 



TD 12iLC* • 



MID* (B*. 2, 33li 



FOR 



ioo,: 



FOR I 



D OR I 



LEN 



ro*ti 



360 FOR L 



TO FFi IF VL*I6) - 

XL*<L.1> THEN HG* - • 

VL*<6> • " «•• EXISTE DEJA ! 
"i GOSUB 270i BOSUB 430: GOTO 



FOR 1 - 4 TO 3iVL*(I) 
(VL*II) - 8L*,32) I NE 
NOT FL THEN FF - FF 



32 THEN MG* - "••• 
" * y« * " INCORRECT •••"! GOSUB 
270i TEXT : HOME I GOTO 630 
HOME I INVERSE i PRINT V*" , 
"ii NORMAL i PRINT " "TD»I PRINT 
: PRINT "SITUATION "R*i 

GOSUB BlOlCT - o 
FDR I - 1 TO FFi IF LEFT* ( 
XL*(I,CHJ ,LD) - TD* THEN CT - 
l! PRINT HLia.il" "XL*'I,RU 



RIN 



• D*"READFK7 
Si INPUT XL*(I,J)I NE 
REM CHARGEMEN 

HUT. EN HEHDIRE 
*"CL03E"i SPEED- 19(. 



1290 
1291 
1300 



REM 

ION 

M n 



TIONS CONSUL Ti 



RIN 



I n»(. 



VtAB ' 



PRIN 



FOR 1 



DISPOSEZ DE 3 TYPES D" INFOR 
1ATI0NS:": VTAB 6i INVERSE i 

PRINT "I") i NORHAL : PRINT 
' CONTENU D'UNE CASSETTE"! VTAB 
NORHAL 



NEXT i PRINT t 


IF NOT CT THEN 


MG* - "••• CE 


»+¥•*•«'« 


ST INCONNU •»• 


-i GOSUB 270 


CALL - 199l V 


TAB 24: CALL - 


960: GOSUB 33 1 


TEXT I HOME I 



. TFir : HOME : I Nvl RSE : F RINT 

"II NORMAL : PRINT "80NJ0 

UR. JE SUIS A VDTRE DISPOSIT 

ION" I i INVERSE : PRINT ■ "i 

NORMAL : VTAB 3i PRINT "GRA 

CE A HOI. FINI LA PABAILLE D 

AMS VOIRE": VTAB 3: PRINT "B 

ANnOTHEOUE CHERIE." 

1 VTAB 7i HTAB 4| PRINT "VOUS 

AVEZ LA POSSIBILITE DE..."I 

INVERSE i VTAB 9i PRINT "A" 

:: NORHAL I PRINT ". LA METT 



SI D'l 



HTAB 38i 



TITRE" 

VTAB lOi INVERSE i PRINT "J 
"11 NORMAL 1 PRINT " TITREC 
J D'UN INTERPRETE": VTAB I2i 



IN 1 



[■il 



iTE DES TITRES"! 
VTA8 14t INVERSE i PRINT "5 

"I: NORMAL i PRINT " LISTE D 

E3 INTERPRETES" 
VTAB 161 PRINT "DANS LE CAS 
"II INVERSE I PRINT " 1" I i NORMAL 



RETURN 

HTAB 38i PRINT "«"i GOTO 1 
»I0 

HTAB 21 PRINT "X"l 

PRINT "X" 
[ ( - 163361 I RETURN 

REM 
REM 
REM 

READ A.B.Cl IF 
XX - 1 TO 1001 



S/PROGRAHHE HUSICAL 



Suite page 19 



16 



LASER 03 



Apr6s la terrible premiere vague dassaut des Andro- 
mediens qui a pratiquement entierement detruil la 
terre, un seul espoir reste avant I'aneantissement total 
et la conquete: vous et vos 3 vaisseaux spaciaux uni- 
ques en leur genre: Ce sont en effet trois prototypes 
jamais utilises. Tous les autres pilotes ayant ele tues. 
vous etes r6duit a affronter seul les vagues successi- 
ves des envahisseurs. 

Philippe LURIN 

Le jeu est compose d'un nombre intini de vagues e! chaque vague 
comprend six niveaux de difficutte croissante. Le but du jeu est 
dabattre chaque vaisseau apparaissant dans le viseur (le viseur 
etant represente pa/ une petite Heche vers le haut). Chaque vais- 
seau se depJace aleatoirement de 2 cases vers la gauche ou vers la 
droite. Les touches a utiliser sont t pour deplacer le viseur d'une 
case vers la gauche (le viseur reslera en place, c'est le vaisseau qui 
se deplace d'une case vers la droite). 2 pour tirer des que le vais- 
seau est dans le collimateur. 3 pour deplacer le viseur d'une case 
vers la drocte. Vous devez abattre chaque vaisseau en un temps 
Sonne (compteur a gauche de I'atfichage), des que 1'appareil sera 
abatlu, le nombre de points gagnes pour la destruction de ce vais- 
seau (qui est ronction du temps mis. du type de vaisseau et du 
numero de la vague) safhche. 

A la tin de chaque vague, le ravitaillement s'impose: la machine 
arfichera a gauche: un compteur de temps (illimite celui-la) et 2 chif- 
fres au centre: celui de qauche representee I'altitude et celui de 



droite labscisse Vous devez aiier en (0,0) (si labscisse est nega- 
tive, elle saffichera a gauche de f'alWude) Pour aller vers la droite 
utiliser le 3, vers la gauche, le 1 et le 2 pour les aerolrems (vous en 
aurez besom car votre vaisseau est soumis a labtraction terrestre). 
& vous vous ecrasez autre part qu'en (0,0) vous aurez un vaisseau 
en moins el pas de bonus Le bonus saftichera quand vous serez 
raviiailie, II depend du temps mis. Puis, viendra la deuxieme vague 
s'tl vous reste encore un vaisseau; plus difficile car les temps aJ- 
loues pour chaque type de vaisseau seront r " 




If 21 luiilet. un numero 
quWruple pour le pnt de 3 
numeros. 4 programme* 
psr ordineteur. 64 pages' 
24 francs eh#* votre ma- 
Chand de journaur 



FX 702 P 



': ;; ! CS! : 
71" =I"!!F08I= 
! TO LEfeSH 
: BHEYsiF M*"" 
ittll BiPRT CSS 
!!' "16010 16 

- f«\ '.':':. li'fii 
FOR j = ii> [0 1*1 

-M'- -lifKTCS 

RJi"-"i:HEXI J 

5 PftT BR isnlDd 

H.DiiFM I=l( 

II ;•: STEP -1 

iffl CSS J!" "i 

:M£KT J 

1 HKT ;:PS; GSR 



2: 



I PR! "i:-; 

•A <--■■}• 
I . ; :; :eJ:l=::S= 

3:i=e!«=i'.PRI " 



ifjueh :.: ; i; 
iHsPRl PUR! ■ 

lit 

a ■-: :■:■ ■ ■ 

ffiKi: 'ILiM "S 

Ms:":i:vmi I 

25 FOR J=l TO 5* 
INI <5«L'H)*i:[ 
=4:6OT0« 

38ftt=">»~ "iffil 

31 R$="I-C-l»!RET 

:: ■:--■ my.m 

33 s;=-.- '•■& 

:- ■;-- >-.«l; 

35 B«=*T":RET 

46 5i=k£V:iF et-"3 

do IF B»="l"JI=l+l 

isoio ?e 

68 IF SS*'T THEK 



78 

63 IF lill-LEHiM) 

MEN IB 
65 If ;.;. m [ 
67 T=RHe8»H«58: 

6S8 m--ma ;■■ 

L=t*l!lf L>6ia5 
£398 
6i SOU 21 

78 B*=™iif rrhk. 

5; 1=1+2:60 i 98 
88 1=1-2 
SB IF MHEKfltt 

11=4 
188 IF i«;I=i8-L£H 

(8f) 
118 PRT RiCSR litll 

:: : ' ii;T;N=N- 

1!IF K<8;GSS 2! 

'3 
12! iOIC 18 
MBHMI48iS=S-l:l 



7 }':■-■' ■:. 

-'■--. : "rSsHAii 

8:N=1« 5*t 

♦1 
285 IF S«8!8E1 
211 PRI "■•• ' ESI 

u : ::- ■■■ iwi 

"SCOSE : .-J 

;iiiF ;=- ;-:■ 

18 
228 - ; : FELlCITBIi 

ORS , '..: ; 
E2 HV:. LPs' 
RE1LLEI ; :.:-: 
231 .-.= ■;:. . ; "- : 1 
.: IMTIfllES " 
«:IF IB III ■.: 
'•': 238 
248 30TQ 18 
388 Mil 'i: L -~ 

> va6UE";»;" ™ 

EndUE'' 



=I«I ■ I 

18:f=l;: ■=■;: . = '. 

a 

'.:■ bi=*i 
•=-.::/: :. 
% 

338 If Ei= i 18=1*1 
•SOTO SM 

J48 , : ;;=.: = ■: 

•■■■i '' : 

- ■.-.■':-. z ..:■: 
IC*=">":I=15! = 
16S61 . 365 

I6i . ; . . .;-■ :. 
=?:j=S 

365 : : : .:: =v»|:] 
: . i8i»=ie 

378 PRT II; i ICSI . 
8iO!CSf IlCJlCS 
I JSABS :. ; . 

: '-'■:-. 328 



■ 

! 

t88 PRl 31 :.•.;: 

■ 

■ 

-.■ '■:'■■ 
. r:P! 
'. • :.-■ 
;:H£X1 

I2« :: .:■ :■ 

*:8EI 



AIGLON 



Ce programme est un jeu d'action rapide en Basic. 
Vous etes a bord d'une capsule et vous devez sauver 
!es savants qui ont ete enleves par de terribles aigles. 

Arnaud LE BER 

Si vous vouiez utiliser la manette (gauche), lapez ce programme: 

5 DATA # 48 

10 DATA* AD.# 01. # 03.# 48, # AD.# 03,# 03, # 48 

15 DATA* A9,# CO.* 8D.# 03,# 03. 

20 DATA* A9,* 80,* 8D.# OF,# 03. 

35 DATA* AD,# 0F.# 03.* 8D.* 00.* 04 

40 DATA* A9.* 40.* 8D.# OF.* 03 

45 DATA* AD.# 01.* 03,* BD.* 01.* 04 

50 DATA* 68.# 8D.* 03.# 03.* 68.* 8D.* 01,* 03.* 68. 

55 FOR A = # 402 TO* 431 

60 READB POKE A.B 

65 NEXT 

70 DOKE* 0229,* 402 

Et remplacez les lignes suivantes par: 

350 K= PEEK(* 400) 

360IFK= 189 THEN XN= XA + 1:YN= YA 

365 IF K= 190 THEN XN= XA - 1: YN= YA 

370 IFK= 159 THEN YN= YA - 1; A- 1 



owci AtWO s 



Le 27 julllet, un numero 
quadruple pour le prix de 3 
nurneros. 4 programmes 
par ordinateur, 64 pages! 
24 trancs chez votre mar- 
chand de journaux. 



Lee PEtl PffESEMTRTIOH 

IIS REM 

113 CL3'P»IMTCHP«2B^,CH»«< 17/,CHR«C€ 

: 1 7 PftPEPe 

U9 IF PEEK (»C898>-169 THEM CRLL »FS 
r ;% ELSE CRLL »P35e 

\Z7> FOP B»*3841 TO 43J21 STEP 4FJ 

\Z6 R"»-IKT(R^3)*7*1 ^POKEB.H-1 

:28 NEXT 

138 PL0Tl«,3.i2■PU0T13.3,"..RIf;L0H.. l ■ 

133 PL0T7.3."Vom iwz four Muloti" 

136 PLOT7,6,"de neufitrtr Us «#v»nt» 

137 PL0T7,7,"4ul ont ete *nt»v*»" 

138 PLrjT?,e,"n«i» cecl ttfJlt troP" 

139 PLDT7, 9, -facile, »1 II n'm *v*lt" 

140 PL0T7, 10, "P«* J« terrible* »f»le» 

141 PLOT7,n,-Et de Ptua.vou* Po-jvei" 

142 PLOT7, 12, "nonter «'j'un HVlTlt «" 

143 PL0T7,13."U fol».' 

130 PL0T6,17,"POUR VOUS DEPLPCEZ '" 
133 PL0T«,19,"-fl DP0ITE ■ FLECME 8BS' 1 
136 PLOTS. 19, "-ft CftUCHE FLECHE CRUC 



139 PLOTS, 23, "C ESPftCE J pqijp MOHTEP" 

1S0 PL0T9, 23, "BONNE CHANCE..." 

163 FOR FI-200 TO 18 STEP-2' SOUND 1 ,P,9 

166 NEXT 

167 FOR P.-10 TO 200 STEP 2'S0UNDl-ft,9 
16S URITIB'NEXTH 

169 PLRY0.0,0.0(;ET «• 

170 CLS 

290 REM REDEFINITION OE CflRACTERES 

283 RESTORE 

210 POR fl-46836 TO 46927 

213 REHO BPOKEft.B 

Z20 MEXTH 

238 0RTP12-43-33. 30- 12.12-18,33 

231 MTftOT-12,30.30.63,33.33.33 

232 DftTRflB. 12. 30. 30. 63.63,43,37 

233 DftTft32,36.36,36.60,60.62.63 

234 DftrP32,60.62, 62. 62.62.63.63 
233 DRT«32.60.3€.48.32.48.36.63 

236 DHTB63.63.63.63.63.63.63.63 

237 OHTR01,09.28,33.33,01,02.0e 

238 ORTR32, 36, 14,39.49.32.16.00 
230 REH TRRCE DU TERPRIN 
233 PINC 

233 CLS PRPER9' INK2 

260 PL0T2,I3,"9«d" 

261 PL0T2,16,■'•99•'■ 

263 PL0T2.I7. "MOflf" 

264 PL0T2,l8. , •••M1>d , ' 
263 PL0T2, 19. "«?9999fl9f " 



266 PL0T2,29,' , 999«9999e" 

267 PL0T2,21.' , 99999'S9999d" 

268 PL0T2.22. "99999999999f " 

269 PL0T2.23, M 99999999999999f 
278 PL0T2.24, ■MM99OM0B0MM' 

271 PLOT2, 25, "9999999999999999*" 

272 PL0T2-26. "999999999999999999999" 

273 FOR fl-21 TO 26 PL0T24.R, "99993" 

274 PL0T23.R,! NEXT 

273 FOR R-l? TO 26 ■ PL0T31 ,fl, "99999" 

276 PLQT39.R,3:NEXT 

277 PL0T17,1,"999" PL0T17,2,"9 9" 

278 PLOT80.1.1PLOT88.2.1 
280 REM CO'JLEUR 

2B1 PLOT02.14.1 'PLOT04.14.2 

282 PL0T88.18.3'PL0T19,19,2 

283 PL0T14.22.4 PL0T16.22.2 

284 PL0T19.23.3 PL0T21.23.2 
235 PL0T23.23.6 PLOT27.20.2 
296 PLOT32-16-7 PL0T34, 16.2 

290 REM POSITION SRVRNTS 

291 PLOT03.14."*" :PLOT09,18,"«" 

292 PL0T13.22,"*" PL0T28,23, "*" 

293 PLOT26 , 28, "»" ■ PLOT33, 16, "»- 
300 PEf1 

318 REN CO0PD0NNEES ET DEBUT 

313 REM 

320 IF SI- 1 THEN S->S*83 ELSE S-0 

325 PL0T23,8, 17 PLOT27.0.3 

326 PLOT23.0, "SCORE *' 

327 ft*0 B-0 C-0 

328 FiR-2 

329 FtC-1 

330 RE-7 

331 RC-11 

332 RI-13 

333 T-308-S 

334 XN-18 Xfl-19 
333 YH-B2YR-02 
348 REM 

343 REM C0MMRNOE8 



338 K-PEEKC #208 > 

331 MUSICl.3,1,03 URIT3 MUSIC1 ,2, 3,03 

332 T-T-iIF T-0 THEN 600 

333 PLOT20.0.STR»-:T) PLOT08,0,9 

334 PLOT10.0,"TEMPS'"'PLOT09.9,21 
333 PL0T33,8,STR»(S) 

336 IF S-30 THEN SI-1 'OOTO230 
360 IF K-180 THEN XN-XR* l YN-YR 
363 IF K-172 THEN XN-XR-1 ■ YN-YP 
370 IF K-132 THEN YN-YR- 1 R-l 
374 IF XN-18RNDYN-3RNDB-1THENB-0 S-S* 
2 
373 IF XN<3 OR XN>36 THEN XN-XR 

376 IF YN<2 OR YN>26 THEN YN-YR 

377 IF ftOl THEN YN-YR* 1 

378 SC-SCRN<XN,YM) 
3B0 COTO 300*SC 

393 IF fi-i THEN PLOTXN, YN, "c" C0T0389 

388 PLOTXN, YN. "b" 

389 PLOTXR.Yfl," ■ 

390 R-0'XR-XN'YA-YN 
393 WTO 430 

400 IF B-l THEN XN-XR. YN-YR COT0383 

ELSE 410 

410 B-1S"S*3 

413 PLOTXN. YN." " 

420 COTO 330 

430 REM RIOLES 

433 IF RR<3 THEN R8- 1 

436 IF Rfl>34THEN RB-2 

437 IF ftB-1 THEN Rfi-RR*1 

438 IF RB-2 THEN ftR»Rfl-l 

439 PLOTflfl. 10," hi " 
443 IF ftC<2 THEN RD-1 
446 IF BO30THEN RD-2 
44? IF RO-1 THEN RC-RC*1 

448 IF RD-2 THEN RC-RC-1 

449 PLOTRCIS," hi " 
433 IF HE<B THEN PF-1 

436 IF REJ23TMEN RF-2 

437 IF PF-1 THEN RE-RE* 1 



438 IF RF-2 THEN RE-RE- 1 

439 PL0Tft£,l7." hi " 
463 IF RC<I2 THEN RH-1 

466 IF ftC>23 THEN RH-2 

467 IF RH-1 THEN RG-RC*1 

468 IF RM-2 THEN RC-flG-l 

469 PL0TRG.19." hi " 
473 IF PK14 THEN RJ-1 

476 IF ftl>28 THEN RJ-2 

477 IF RJ-1 THEN flt-RI.l 

478 IF RJ-2 THEN ftl-RI-l 

479 PLOTRI.20," hi " 
493 GOTO 330 

301 XN-Xft ■ YN-Yft ■■ GOTO 383 

382 XN-XR i YN-YR ■ GOTO 383 

383 XN-XR ' YN-YR ■■ GOTO 383 
304 XN«Xfl-YN"Yfl:GOTO 383 
303 XN-Xft ' YN-YR ■ GOTO 383 

306 XN-XR -YN-YP' GOTO 383 

307 XH-XR YN-YR GOTO 383 
332 GOTO 383 

397 GOTO 480 
399 GOTO 383 
399 GOTO 383 

600 GOTO 610 

601 GOTO 610 

602 GOTO 610 

693 XN-XR ■ YN-YR - GOTO 393 
684 GOTO 610 

603 GOTO 610 

610 REM FIN DE LR PflRTIE 

613 PING LJRIT30 

628 M'JSICl, 2.1.8 WAIT30' MUSIC 1, 1 3.8 
623 WRtT3O'PLRY0.8,8.B 
630 FOP R-9 TO 26 PLOT0.R, "9999993999 
9999999999999999999399999939" ' NEXT 
635 PL0T11,13."UNE RUTRE PRRTIE" 
640 GET R« IF ftf'O" OR R«-"o" THEH23 

e 

' THEN CRLL583_ 




Suite de ta page 5 




3030 ? * EMPLOYES. A VOUS DE CHOISIR.SI VOUS NE V0ULE2 PAS ACHETEZ D ' ENTREPR I SES , 

TAPEZ '0' "I : INPUT A 

3040 IF A-0 THEN 3300 

3030 IF A-100 THEN 3100 

3060 IF A-200 THEN 3130 

3070 IF A-300 THEN 3200 

3080 IF A-300 THEN 3230 

3090 IF A-1000 THEN 3273: NES-NESM 

3093 IF A-10000 THEN 3290 : NES-NES * 1 

3100 AG- AG- I 100*1000) : NE-NE*A: SE-SE * 10 

5110 7 ■.-• !? -IL VOUS RESTE "tAGI" FF ' 

3120 FOR T-] TO 100:NEXT T : NES-NES » 1 t GOTO 70 

3130 AG- AG- (A41000I : NE-NE *A: SE-SE ♦ 1 1 

3160 7 !? t? -IL VOUS RESTE *|AGI* FF" 

5170 FOR T-l TO 100:NEXT T : NES-NES* 1 : GOTO 70 

3200 AG- AG- I A* 1000) : NE-NE*A: SE-SE * 1 2 

3210 7 ;■> ;•> -IL VOUS RESTE "lAGl" FF " 

3220 FOP T-l TO 100:NEXT T : NES-NES* 1 : GOTO 70 

3230 AG-AG- <A» I 000 I : NE-NE *A: SE-SE • 1 •! 

3260 7 17 I? ML VOUS RESTE "|A0|" FF- 

3270 FOP T-l TO lOOlNEXT T : NES-NES • 1 ; GOTO 70 

3273 AO-AG- (A«1000) : NE-NE *A : SE-SE ' t 

3290 7 \-> |7 "IL VOUS RESTE MAGl" FF" 

3293 FOR T-l TO 100:NEXT T : NES-NES* 1 : GOTO 70 

3290 AG- AG- (A* 1000) : NE-NE *A: SE-SE* 20 

3293 7 :? :"> -IL VOUS RESTE "|AGl" FF*:FOR 1-1 TO 100INEXT 1 : NES-NES- I : GOTO 70 

3300 7 *ii PUISOUE VOUS N - ACHETE2 PAS D ' ENTREPRISE, VOUS ACHETEREZ PEUT-ETRE UN OU 

DES TERRAINS. LE PRIX DU "I 
3310 7 'TERRAIN EST 100000 FF ET VOUS DISPOSEZ DE ■ I AG I - FF ■ SOlt© paQO 18 

17 



FLIPPER P ONG ^COMMODORE 64 



Voici un Ping-Pong contenant des obstacles et un 
Bumper central, original, non? Pour deux joueurs 
munis de joysticks. .. 

Michel GIRBOUX 



Le 27 |ulllet, un numftro 
quadruple pour le prlx de 3 
numeros. 4 programmes 
par ordlnateur, 64 pages! 
24 Irenes chez votre mar- 
chand de journauv. 
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DATA 192.224.93. 240. 4. 232. 76. 102.192. 162. 0.166.5. 32. 24, 196 

DRTA 9*, 173 16 208.74. 176. 16. 224. 5. 240, 4.202. 76. 102. 192. 162 

DATA 31.16© 3-3224. 196.96,224,0.240.4,282.76. 102-192.169 

DATR 4.141. 16 203, 162 253 142.9 293 

DATA 17?. 2 11. 1.240, 3- 206, 21 1.5. 173- 31. 200. 74, 144, 3. 32. 136 

DATA 194.174.298.3.249, 1.202.142.209.3.173.30.206.224.0,208 

DATA 3. 32- SB 155.173-203-3.201 15. 288.2. 162 ■ 141 .201 , 14,208 

DATA 2.162.121.281.12.208.2.162.183.201.3 203,2.162.102.142 

DATA 289 3- 172. 210. 3. 174 209.3.202.288.253,136,208.247,173.212 

CRT* 3,240 6,286 212 3 76.0.192. 169-0. 141, 4.212, 768. 192 

PEM LANG. MRCH.MOUVEM. PALETTES 

FI-IR1-0TO59 PEADA POKE4940«*I-A NEXT 

F3T-I 1.^9. 0.220- 74. 176. 1?. 169. 1.157- 285. 3- 133 18.170.189.3 

DATA 208. 24. 233- 1.157. 3- 283. ?6- 74, 176. 18- 169. 2, 157. 285. 3 

DATA 138. 10. 170, IE?-:. ^'38. 24. 105- 2. 157. 3. 208. 96. 169, 0.157, 285. 3. 96 

PEM LAMj.MACH. COORD. V BALLE 

F0FI-OTi>F.l READ* P0KE49493*I.A NEXT 

DATA 162. 9.1 ?2.1 -*?!". 202. 3. 299. 6. 173. 203- 3. HI .282.3.78,202,3.144, 40 

HATR 234.234.234.173*294 3. 74. 176- 16. 192 ■ 219.240.2.200.96. 169 

■i - 1?J 1?*. 96, 192-54.240.2.136.96.169 

DATA 0. 141.204 ?.?2. 36 194 288.96 
P£K LANG.MACH.CHANC-EM.TPAJECT. 
FOPI-0TO30 s-ERDR POKE49680*I.fl NEXT 

^Tfl "4 285-3. 176. 37. ?4 ;05- 3-144. 17. 17?. 204. 3. 74. 176. 12 

DATA 173. 2"'- 3 74 74 234,9,12,141.203.3-96,173.283-3-18 

; i: :- - = 141 283 3 , 96 ■ 173.234. 3. 74. 176-224 

"0.193 
REM LflN6-rN*>. JON 

..-. fcjrdh K"'E49703*[.A NEXT 

13 14] 24. 21 2 169. 8- 142. 5. 212. 141. 6. 212. 169. 9. 141 
169. 1*. 141 .2.212. 16?. 131 ■ 141 9.212.169.65,141,1 
DATA 212 141 .4.212.96 
P£M lANO-MACm. COLLISION HVEC DflTfi 
F0PI*9T03? REAPA POKE49300*! ft NE J 

■v.: 28. 173- 207, ?.240. 3. 169,8, 141,287,3.76 
jffftfi 139,194.169,1 141 20^,3. 162-0,32.36,194.169.15. 141-21 
(.nflCH.COLL.ENTFE SFPITES 

•■■■"■ -fh:r POKEiee0B>i.fl next 

BRTfl 74.74,176 H 74 176.1? 74.74 1 -6 23 ■ 74. 176.33-96. 162 
': 192.193.76. 162. 195.162.1.142.287.3.32 
DATA 192 .193. 162. 076. 162. 195. 169. 0.141. 284, 3, 76. 132. 195. 169 
DATA 1. 141. 204 ? 173,297 -'.74,176.19,162,8.168,2,32,24 
DATS 196.76.155, 199,162 31,169,2.32.24,196, 169.15.141,283.3 
DATA 162.4,32.36. 194. 169-29- 141.203.3. 169,3, 141.212,3.36 
PEr lanG.MACH. SCORE 
FORK-0TO66 PEflW P0KE59299* I . ft NEXT 

DBTfl 189, : 97. 7. 291. 121. 249. 9. 24, 105. 1-157, 197. 7, 76. 37, 196 
DATA 163.112,157-197.7. 139.136.7.281.121,240.9,24,105.1-157 
DRTA 196.7.76 37, 196. 169, 112 157,196,7,139.195,7,201.121.240 
DATA 9.24.1*5.1.157,195.7,76.87.196-169.112.157,195.7,136 
DATA 298,198.96 
PEM DEFINITION DES SPPITES 
=E" •••••«••••*••«•**♦«•** 
»rvE2848. 13 POKE 2941, 14 POKE2042, 14 
FOPI-0TO2 P0KE2943*! .224*1 NEXT 
REM DESSIN SPRITE 3 BALLE 
FOP I»9T062 PEAD 3 POKE 332*1 , ft NEXT 

DP-Tftn. 0.0. 8. 8. 9. 8, 9, 8- 0.0. 0.8- 8.9. 9. 69, 0.0. 255, 8. 0.255. 0.1. 235, 128 
ERTF-i. 235- 123-1 255.123.1.255.123,0.255.0.3.255.0.9.60.0 
DfiTH8. 0.9- 9. 0.8- 8. 9. 8. 9- 0.0. 0.9. 0.0. 0.0 
PEM DESSIN SPRITES 1.2 PALETTES 
F0RI-8T062 READ ft P0KE996*I.A NEXT 

»T«8, 9. 0,9. 9. 9. 9- 0.8. 0.0 0.0,24.0,0,24,9,0,24,3,9.24,9,0.24.9.9.24 
DflTfW. 24, 8,9. 24, 9. 9.24. 8. 8.24, 0.8. 24. 8, 8.24, 0,9. 24. 9. 0,24. 0, 9, 0, 0,0 
DATA0.3 

RE" DESSIN SPPITE 3 DUMPER < PART I E CENTffALE> 
FWI-0TO62 PERI'A POKE 14336+ 1. A 'NEXT 
DRTR0, 0.0. 9.9. 9. 0.0. 0.0- 0.0. 9. 126- 8.1. 255. 123,3.233,192.3.233.192 



O 



.3.96 




924 DATR7.235 224 -7. 235. 224, 7. 233. 224, 7, 235. 224. 7. 25'.. 224,"). 253. i?2 

925 DRTR3.235. 192. 1.233. 123. 0126. 0,8. 9- 9. 9. 0.0. 0.0. 0.0. 0,0 

931 PEM DESSIH SPRITE 4 DUMPER 'fOPD [HFER1EUR 

932 FOPI-0TO62 READA ■ POKE 14408*1, fl NEXT 

933 DRTRR. 9. 0,0. 9. 9. 9. 9,0. 0.3. 3. 8, 0.9. 9. 0.8. 8. 0-8 8.0.9.8.0,8.0.8.8-129.0.36 

934 DRTR96, 0,6, 36.0 6.96.9.6.43.9.12 

935 DATP54 0, 108,30.0,128 12,24,48.7.24.224,3.235 192-0. 233,0 

936 PEM DESSIN SPRITE 3 DUMPER'BQPD 3UPERIEUP> 

937 FOPI-0TG62 PEADfl POKE 14464* I .A : NEXT 

939 DflTfle. 235, 8. 3. 233. 192. 7, 24, 224, 12. 24. 49. 39. 0.120- 34. 0.138. 49. 0.12, 96. 0.6 
93? DFITR?6,9.6, 120. 0.30, 0.0, 0.0.0, 0,0. 0,0. 0,0. 0.0. 0.0. 0.0. 0.8. 0.8. 8-0. 0.0, 8 

940 DRTP.9. 9,9.0.0,8.0 

948 REM COULEUR DES SPRITES 

959 PQKEV*39.1 POKEV+40.0 F0K£v+4i.<? POKEV+42,6 PO*EV*43,0 POKEV*44.0 

960 PEM EXPANSION SPPITES 1 ET 2 
?8C! POKEV+23,6 

999 PEM DESSIN DU TEPPRIN 
1009 PEM ••••••«••••«*•••• 

1910 PPINT'TT FOF I-8T039 

1020 POKE 1923* I. 27*1 28 'POKE 55297*1.2 

1039 POKE 1945+1,28*128 POKE 56217*1,2 

1940 HEXT 

1939 F9RI=0TO38 POKE 1983* I . 32*64 : NEXT 

1969 F0PI-1924T01994STEP49 POKE 1 . 32*64 - NEXT 

1990 FOP!=9TO319?TEP40 F0KE1364.I . 2? P0KE356?6*I,2 NEXT 

1199 POKE1076.29 P0KE53348 ■ 2 POKE 1092 . 29 F0KE33364. 2 

1110 P0KE1916.29 P0KE36188.2 P0KE1932 2? PO*E36204.2 

1129 P0KE1477.2? P0KE55749.2 P0KE149! 2? P0KE55763.2 

1145 GOSUB 2000 

1146 FOPI=0TO9'POKE19»*'1, 39+64 P0KE56271*! . 7 NEXT 
1150 GOSUB2500 

1218 REM INITIAL. PRPAMETRE3 DU MCHJVEMENT POUR LRNO.HflCH. 

1229 PEM .............................................. 

1230 P0KE971.12 POKE972. 1POKE973.0' POKE974.9 FOKE973.0 POKE976.0 P0KE978.9 
1240 PEM DEBUT DU JEU 

1238 PEM 4M *•••»•*•• 

1260 H>0 

1278 POKEV+2I.62 

1280 ft*-"" PPINT"WW«r»»»»M»»MMFOUP COMMENCER Fl" 

1290 OETRf IFR*-"' , THENI299 

1380 IFfifOCNPf 133 > THEN 1298 

1328 PRINT'"*! 

1330 GOSUB2890Fnpi»iTO2090 HEX! 

1349 P0KEV*2 1-63 POKE 1999*N. 32*64 

135.0 PEM EXECUTION DU LANO. MftCHINE 

1368 REM **•*•*«••••••••••**••*•>•• 

1373 SVS 49152 

1438 PEM WISE R TOUR RVANT RENVOI 
1460 PEM *«•••**«••»•»•*•*••*♦••• 
]470 FOP 1=1 TO 2300 NEXT POKE"*?l 62 

1439 N-N*l IF N=19 THEN 1146 
1485 POKE 1999+N. 32*64 

1499 IF PEEK'975>=9 THEN 1510 

1590 0OSUB259B POKE973,0 P0TQ1349 

1510 OOSUB2509 P0KE97*:. 1 0OT01349 

2000 F0PI-9T02 P0KE1987+I,112'P0KE2ei9>T.112 POKE56259+I. I P0KE56290*! - 1 

2010 NEXT RETURN 

2590 PEM POSITION DE DEPRPT DES SPRITES 

'"■in PEM •••••••*••*••*•••«*•••*»••»••• 

2520 POKI " ' ■ - -: -80 P0>EV*16.4 
2539 POI E -" 3 POKE V*3. 129 

7-,4tl P0KE'-'*4 62 POKE..'-" '.."i"' F.^-.'-.i,- J 

2550 FnPl=.ftTri4STEP2 R0kEV*6*I IT* P0KEV»7*I.133 HEXT RETURN 

3000 PEM ♦•*••»••••»•«•••*•*•»****»*•»•♦•••»•••**•••*»*•*•••••?«••*••♦***••♦•< 

-)0]Pi pem ♦ DEUX C0N9EILS Pf"JR TERRINER * 

3020 PEM • -■'EP1 C IF C .I-.'irit fwiiT i Et'PlTijPE W i.RHOURCE MACHINE. i 

3930 PEM • I [ONES 235 R 7?6 * 

7«4l^ PEM • -^AU'.-'EF : '- !" •* -:ETTF. A'v'RHl DE KfllFL ■■FUN" « 

tcf.f, REM »•••«»••*»♦»***•«•*••♦•♦•»*•*««»*»•♦•*•»•*••••»•♦♦•••**••••»•*•••••♦« 



suite de la page 17 



3320 IP B«-"N* THEN 70 
5330 IF B«-'0- THEN 5340 
5340 7 -CDMBIEN'I ;INPUT C 

3330 AG-AG- (C*100000) : NT-NT»C 

3360 GOTO 70 

3500 "> -U* 

5510 ->:■>:■>• JE COMPPENDS TRES BIEN QUE V0U3 VOULIEZ VENDRE VOS TERRAINS OU VO 

S ENTPEPPISES-I 

5320 - 1 '.C'EST POUROUOI.JE SUIS TRES HEUREUX DE VOUS ANNONCER LES PRIX DE RACHAT 

5330 7 "VOUS AVE? EU PAISON D'AyOIP ACHETER DES TERRAINS PUISQUE LEUR PRIX AUGME 

NTE. . .PAR CONTRE, *l 

3540 7 "LE PRIX DES ENTREPRISES BA1SSE LEGEREMENT." 

3330 ->:■>* VOULEZ-VOUS 




TO HDIH1 INEXT 
, 100, 10,0 
TO 10JNEXT 2 

10,0 



AIMENT VENDRE CES ENTREPRISES OU CES TERRAINS " I I INPUT 



3360 IF B»-'0' THEN 5590 

5570 IF 8»"*N- THEN 70 

5590 f »tt* 

3600 7 -VOULEZ-VOUS VENDRE DES ENTREPRISES. VOUS EN POSSEDEZ " I NESt * . ' ! : INPUT H* 

3610 IF B«-'0* THEN 5630 

3620 IF B»-*N- THEN 3800 

3630 7 :-> :■> -COMBIEN VOULEZ-VOUS EN VENDRE. LEUR PRIX DE REVIENT EST DE 900000 F 

F'j: INPUT A 

5640 NES-NES-A: AG-AG* 1A4900000) 

3645 7 17 -VOUS AVEZ * 1 AG I ' FF*:FOR T-l TO 200:NEXT T 

5650 GOTO 70 

3800 7 -u VOULEZ-VOUS VENDRE DES TERRAI NS . VOUS POSSEDEZ ■ I NT I ■ . " I : INPUT B* 

5810 IF B«-'0" THEN 5830 

5820 IF B«-'N* THEN 70 

5630 7 I? '.-> -COMBIEN VOULEZ-VOUS EN VENDRE " I : I NPUT C 

5840 NT-NT-C:AG-AG» IC4300000) 

5850 7 (7 "VOUS AVEZ -|AG[- FF " : FOR 1-1 TO 200INEXT 1 : GOTO 70 

7000 7 "ti # :SETCOLOR 1 , O, 14: SETCOLOR 2, O, 2: SETCOLOR 4,0,2 

7010 7 :? ■ NOUS FAISONS GREVE't'NOUS VOULONS DES SOUS ' ' ' * 

7020 7 I? ' VOUS LES ENTENDEZ^EH OUI ' VOILA C£ QUI ARRIVE OUAND ON EST T0RS10NA 

IRE'PUISOUE C'EST COMME *! 

7030 7 *CA:LES SALAIRES AUGMENTERONT ET LES EFFFECTIFS AUSSI ' ■ - : NE-NE * 10001 SE-SE 

• 100 

7040 7 :? • VOUS DISPOSEZ DONC DE 'INEI* EMPLOVES AVEC 

7030 7 ■ BONNE CHANCE ■ I C»[ • 

7055 FOR 1-1 TO lOOOJNEXT I 

7060 RETURN 

8000 DIM HR[ 11 I ,HD< 1 1 ) 

8010 DATA 108, 10B, 108,81 ,81 , 72, 72,53,64, 81 ,0 

6020 DATA 7.12,10,27,25,25,23,37.12,23,0 

8030 FOP H-l TO 111PEA0 RH! MR (H » -RH : NEXT H 



8040 FOR H"l TO 1 1 : READ DH : HD ( H > -DH: NEXT 

8060 FOR H-l TO 1 1 

8070 SOUND I,HR(H),10,8 

9080 FOR Z*. 

8090 SOUND 

8100 FOR Z" 

B110 NEXT H 

8120 SOUND 1, 100, 

6130 RETURN 

9000 7 "tt"!? *-- - ENTREPRISES 

I? "VOUS VOILA CHEF D'ENTREPRISE GRACE" 
-A VOTRE ATARI. LES REGLES DE CE JEU" 
-SONT TRES FACILE A COMPRENDRE . " 

VOUS ETES A LA T6TE D ' UNE ENTREPRISE" 
DE ZOO OUVRIERS. VOUS POSSEDEZ* 
*14 MACHINES:4 GROSSES ET 10 PETITES." 
' LE BUT DU JEU EST DE VENDRE LE " 
•PRODUIT HUE VOS OUVRIERS ONT CQNSTRUIT" 
" BIEN SUR VOUS DEVEZ PAYER VOS" 
■OUVRIERS. LEUR SALAIPE EST DE 1000 FF" 
•CE SALAIRE EST ENLEVE AUTOMAT IQUEMENT" 
•DE VOTPE CAPITAL. ■ 

•VOUS POUVEZ VOUS AGRANDIR EN ACHETANT" 
■DES ENTREPRISES OU DES TERRAINS' 
9080 7 'SUE VOUS POURREZ REVENDRE ENSUITE" 
9083 FOR I-I TO 20001NEXT I 
9100 7 *u" 

7 ■ - -ENTREPR I SES 

7 "VOUS POUVEZ AUSSI LICENCIER DU * 
"PERSONNEL, OU ALORS BAISSER LES' 
■SALAIRES. MAIS ALORS ATTENTION AUX - 
-GPEVES ' ' '* 

|7 -ENFIN, SI VOTRE BUDGET EST INFERIEUR" 
*A FF, VOTRE CARRIERE SE TERMINE" 
•ET BYE BYE LES REVES DE M I LL I ARDAI RES ' " 
:? *JE VOUS SOUHAITES UNE TRES LONOUE" 

CARRIERE ET JE VOUS DIT 'M "IFOR 1-1 TO 2000: NEXT 1: RETURN 

-u":SETCOLOR 1,0, 14:SETC0L0R 2 , , 2 : SE TCOLOR 4.0,2:IF AG>0 THEN AO-O 



9010 ' 

9013 ' 

90Z0 ' 

9023 ? 

9030 7 

9033 7 

9040 7 

9043 7 

9030 7 

9035 7 

9060 7 
9063 
9070 

9073 ' 



1 10 7 



9140 
9145 
9130 9 
9140 7 
9170 ? 
10000 7 




10010 ■> 

NS DE VOUS INFORMER 



■ TOUTES LES BONNES CHOSES ONT UNE FINlC'EST POUROUOI NOUS REGRETO 



10070 7 
E ENDETE 
10030 7 
10040 7 
10060 7 
10070 IF 



iSEf " FF DE SALAIRE' 



FIN DE CETTE PAPTIE.HELAS VOUS N'AVEZ PLUS D ' ARGEN T , VOUS ETES MEM 

IL VOUS RESTE"! 

:"|AGl' FF. C'EST VOUS DIPE A QUEL POINT VOUS ETES RU I NE • • ■ 

7 " NOUS VOUS OFFRONS LA CHANCE DE POUVOIR REJOUER UNE PARTIE ' I C« 

7 -VOULEZ-VOUS REJOUER" t : INPUT B« 

B«-*0- THEN RUN 
10080 IF P»--N' THEN 10110 

10110 7 'ii VOULEZ-VOUS QUE L - ON EFFACE CE PROGRAMME" 
10120 IF B«-*0* THEN 7 (7 "AU REVOIR":END : NEW 
10130 IF B«-"N* THEN END 
1 1000 7 "U" 

11010 ■> 1-7 "VOUS AVEZ TROP PPODUIT.VOUS AVEZ DONC UNE SURPRODUCT ION" 
11020 7 "VU LES CONJONCTURES ACTUELLES.NOUS 60MMES DESOLES DE VOUS ANNONCER: * : FO 
R I»l TO 210INEXT IlOOTO 10000 ■ 



: INPUT B« 



DESSIN 



Je vous pr6sente un utilitaire de dessin enticement uti- 
lisable £ partir du joystick ou, grace aux touches 5. 6, 
7, 8, si vous n'en avez pas. Vous allez pouvoir (aire 
le portrait de votre maman ou dessiner les plans de 
votre future maison comme si vous t'aviez deja fait 
toute votre vie. 

Emmanuel RICROS 

Attention, les kgnes indiquees par un pave noir sont reservees au 
Spectrum 48K. 

Le defacement du point sur lecran est ootenu par simpie mouve- 
ment du joystick ou des toucties 5, 6. 7, 8. Pour le choix de 1'option. 



tl suffit de deplacer le curseur en bas de lecran a I'aide du (Oysttck 
(Ou des touches 5 et 8). en appuyant simultanement sur TIR {ou 0). 

Voici la liste des options: 

C Couleur (ligne 1500): Change la couleur de lencre sur tool 
I'ecran. 

D Dessin (ligne 1600): Dessin 8 directions a I'aide du joystick ou 
des touches 5. 6. 7, 8. 

E Encre (ligne 1700): Change !a couleur de I'encre a partir du point 
couranl. 

G Gomme (ligne 1900): Gomme d'un pixel dirigeable dans les 8 
directions. 

I Imprimer (ligne 2100): Execute une copie de lecran sur I'impri- 
mante, apres confirmation. 

L Load (tigne 2400): Charge un ecran, apres confirmation. 
M Mode d'emploi (ligne 2500): Rappel des options. Une routine en 
langage machine permel de conserver I'ecran (sur Spectrum 48K 
seulement): 

Le contenu de la memoire ecran e! des attributs est transfere en 
haut de la memoire de 58431 a 65343; la routine allant de 65344 a 
65367. 

N Nettoyer (ligne 2600): Efface I'ecran apres confirmation el reinitia- 
lise les variables 
O Cercle (Itgne 2700): Trace un cercle apres avoir poinle (Tir ou 0) 



le centre (comple rendu OK) puis un point du cercto. Un co*#6*» da 
depassement d' ecran est eflectue. 

P Papier (itgne 2800) Change la couteur du papier sur lout f ecran 
sans affeclBr le dessm 

R Rectangle (ligne 3000): Trace un rectangle apres avoir port* las 
exlremrtes dune diagonale. 

S Sauvegarde (ligne 3100): Sauvegarde lecran- Le nom est setsc- 
tionne en deplacant le curseur sur tes tettres chotsies puis an pras- 
sant TIR ou La saisie termioee. se posrtionnef sur " puis appuyer 
sur TIR ou pour sauvegarder 

T Trait (ligne 3200): Trace un (rait errtre les deux extrernitas poin- 
tees. 

V Vitesse lente (ligne 3400): Dessin 8 directions en vrtesse lenta 
pour les dessms exigeant plus de precision. 

X CoorrJonnees (l»gne 3600): Donne les coordonnees X et Y du 
point courant. 

2 Dessin par pave (ligne 3800): Permet de dessiner dans tes 8 di- 
rections par pave de 64 pixels, de coloner une zone cTecran 
Peut servir de gomme si la couleur chotsie est la merne que oete 
du papier. 

Le choix de la couleur s'effectue en depfacant le curseur en bas de 
I'ecran et en pressant simultanement TIR ou 0. 
Pour quitter ce mode, se positionner sur ' . 



u«r*i 
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999. 
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. .0 2527. . .0 




. .1 2520. . .P 




. .l 2530. . .R 




2532. ..T 










8538. 


. -Z 






2699. 




2799. 




2999. 




3999. 




3199. 


. .Tf«H 


3399. 




3599. 




3799. 


. .P*v< 


Mffi. 




N§, 


. . INITIALISATION 


9iea. 


. ,48K injiixn'. 



SPECTRUM 



REM pres . 



MEN LET p=223 

61*38 
OINT (will 



12 CLEAR _ . 

is go sub ae-flo 

17 go sub oeea 

20 GO 5'JB 3500: 

22 PRINT m, at 

25 POixE 33273,5 

27 GO TO 1030 

39 

*0 REM I 

50 LET . 

60 IP P«175 - 

70 LET r " 

80 LET 

90 LET : . 

190 IF r THEN GO TO 180 

119 LET X-Xt (P-13) ♦ IP=*1 *(P-29) 
- (pa*0) - (p«33) - ip»4.B) 

139 LET y ay - [p <*9i * [p .8; . ■■? »13l 
- ip i*8 i - (P-16) - (P-301 

130 LET x.x*(X<0) -<x >35S1 

1*0 LET y»y*iy <0> -(«>17E) 

150 RETURN 

160 LET 4Z»Z 

179 LET Z«I*1P»* RNO K38)-<P«3 
3 SND I>31 

180 POKE 3326**»Z,7 
199 POKE 33264*z ,86 
290 RETURN 

997 
998 



13B0 go sue 

1919 IF f THEN GO TO 19 

1920 GO SU8 ;*139*1090 
1039 GO TO 1000 

1298: 

1299: 

1290 RETURN REM R 

1394 

1*99 RETURN REM B 

1*96 •^■™«^ 

1505 PRINT HI, -0123*567 
ft" 

1510 LET 

1515 LET 

1530 LET 



it*fl».W: 



1525 POKE 2326* 
1530 POKE 3325* 



.»na,7 

♦ in, 56 



1535 IF INKEV*< 

15*0 IF tn.pap THEN GO TO 1575 

15*5 INPUT *■'■; PRINT ai;"UtuiiL' 

z ptiitnitr , - 

1550 LET ininn 

1555 FOR t -23326 TO 23331 

1560 POKE i ,8*paP»irt« 

1555 NEXT i 

1570 INK inn 

1575 INPUT ■"■ 

1569 PRINT Bl. at 

158S LET Z«6 

1590 POKE 23370,56 

1595 RETURN 

1598: 

1599 I _ 

1500 PLOT 

1610 PLOT x 

1630 PETUPN 

1698: 

1599 REM , 

1700 INPUV 

1796 PRINT Bl, "01234567 

1719 LET 



1715 


LET in 






1730 


LET K 










«»"5" RNO ift>« 

326*t.n*,7 




















EY|< >"0" THEN 


GO TO 1 


715 
















17*5 


INK if 






1750 


INPUT 






1755 


PRINT 


*!;*• |_ 




1769 


LET t< 






1765 


POKE 33270,56 




1779 








1799 






1590 








ie*e 








1899 








1900 


PLOT ) 










NUERSE l.X.V 






RETURN 






1999 








2000 


RETURN 


: REM M 




2995 








3099 


rem m 












2119 


PRINT 


til; ■'flppuysz st. 












2120 




IF INKEY*-"" THEN GC 




IF INKEY!! >"9" TMCN 


GO TO 2 










21*0 


INPUT 




















2170 


LET z« 


6 






POKE 33273 






RETURN 






3199 
















2299 
















2395 








2399 








2*00 


INPUT 






3*05 


PRINT 


Si: "Appuyaz Si 


r tip p 


our 

2*10 



bar gar 

IF INK 


EYa""" THEN GC 


TO 3*: 


IF INK 


EY«< >"9" TMCN 


GO TO 1 










2*29 


INPUT 






2*35 


PRINT 


11;" Ch»i 


■)» -i».-i t 










LORD ' 


"SCREEN* 




2*35 


INPUT 
















LET z 


6 






POKE 23370,55 




2*55 


RETURN 






2*98 
















2595 


RANDOMIZE U5R 553** 


■ 


2519 


PAPER 


It INK 5 BORDER 1: C 


LS 










PRINT 


TR8 1; INUER5) 


i; '• 




MODE 


O'EMPLOI 






PRINT 






3515 


PRINT 


" B-Changs la 


cou itur 








2516 


PRINT 


■' Ij-Ot ssint . ■■ 
■' H-CK»ng« la 




2517 


PRINT 


cou nur 










2519 


PRINT 






3521 


PRINT 


" H-I«pri»«," 




3531 


PRINT 






2525 


PRINT 


" BB-Donnt >.t aod< d t 


rip to 
2526 


PRINT 


" I-N«tlOit l 

■' H-Tr»c« d«s 


tcran ," 


2527 


PRINT 


c«rci«s 


3525 


PRINT 


" B-Changt la 


coul«ur 


du P»Pi«r 
3530 PRINT 


" a-Tract d«s 


r«ctarig 




PRINT 


' B-5auvt l*a< 
" 3-Trac« d«s 




2532 


PRINT 


traits. 


353* 


PRINT 


" M-Ui tess* It 
" B-Oonn« tts 




2536 


PRINT 


coordon 



2538 PRINT " B-oessin« par pav« . 

2540 PRINT HI;" RPPUV<2 lur 

urn toucht .■■ 

25*5 IF INKCYg-"" THEN GO TO 25* 



2569 INPUT "" PRINT 
2565 LET Z »6 

2570 POKE 33270,56 
2575 RETURN 
2598: 

2599 REi , 
3600 INPU. 
2810 PRINT 01, "RPPU9«Z Sur TIR 
our ntitoytr ." 
3620 IF INKEY 



THEN 00 TO 263 
'• THEN GO TO 3 



2539 IF INKEY » 

660 

2640 CLS 

2659 GO SUB 9999 REM i n , t 

2669 INPUT "": PRINT «l,at 

2679 LET z«6 

2689 POKE 33279,56 

2690 RETURN 
2596 



2719 IF INKEY«1)"0" THEN RETU 

2715 IF re THEN GO TO 37*5 

2729 LET * Is* LET ^l»y 

2721 PLOT OUER 1 ; X 1 , « 1 

2725 LET rc=I 

2739 INPUT "- 

273S PRINT Bl. "OK" ,TRB 17; "O" 

27*9 RETURN 

27*5 LET r=INT (50R (CXl-X)«( 



<0 THEN 



+ tyl-_ 

2750 IF 
RETURN 

2755 IF y.l + r>175 OR vl-<"<0 THEN 
RETURN 

2760 CIRCLE xi.yl.r 

2761 PLOT OUER l;xl,yl 
2765 LET fc.9 

2770 INPUT "" 

2775 PRINT Bl,a« 

2789 POKE 23281,56 

2785 RETURN 

3796. 

3799 [._.. 

2809 INPU - 

2805 PRINT 01; "9123*567 PRPIER 

2819 LET pa=0 
2515 let asa-pa 

2820 LET pa»Pa+ (INKEY»r"8" RNO P 
a<7) - IINKEY*3"5" RND fi*><B) 

2825 POKE 2326**apa,7 

2830 POKE 23354.Pa.Sa 

2835 IF INKEY«<>"9" THEN GO TO 2 

fl IS 

28*0 IF p» = inii OR pa=PaP TmEN GO 

TO 2365 

3S45 FOR i=2353S TO 33331 

2850 POKE i,S«pa*PEEK t -8*PaP 

2855 NEXT » 

2860 LET pap*pa 

2365 INPUT •■" 

2870 PRINT 81, »t 

287B LET Z.6 

2860 POKE 23270,56 

2065 RETURN 
2699- 

2909 RETURN : REM Q 
3998 

2999 I _ 

3000 PLOT _ . 
3005 PLOT OUER 1... . 
3010 IF INKEY* < >'"9" THEN RETURN 
3915 IF (r THEN GO TO 39*5 
3020 LET xl-x: LET yl*y 

3031 PLOT xl, yl 

3025 LET fc-i 

3030 INPUT "" 

3935 PRINT Bl. "OK",TRB 20, "R" 

3040 RETURN 

30*5 DRRU xl-X.0 

3950 DRRU 9,S(l-y 

3955 DRRU X-Kl,0 

3960 DRRU 0,y-Yl 

3965 LET I r .0 

3070 INPUT "■' 

3975 print ai;a« 

3960 POKE 33284,56 

3985 RETURN 

3096 

3099 REH BJIBBBI 

3199 INPUT "" 

3195 LET »««■■■■ 

3110 PRINT BlJ" RBCDEFGHlUKLMNO 

POP5TUUUXYZ f 

3115 LET za-2 

3120 let aza-za 

3125 LET za*Za*(INKEY*»"8" AND Z 

a (29) - CINKEYf ="5" AND za>2) 

3130 POKE 3336**a7a,7 

3135 POKE 3336**Z»,56 

3140 IF za-2B THEN GO TO 3129 

3145 IF za-29 THEN GO TO 3160 

3150 IF INKEY««"9-' THEN LET i»-i 
|*CHRj (ia*63) POKE 33264*za,40 

3151 IF INKEYt»"0" THEN GO TO 31 
51 

3155 GO TO 3130 

3160 IF INKEY* o"0" THEN GO TO 3 

120 

3165 INPUT "" 

3170 IF LEN s«>10 THEN LET S««S* 

I TO 10t 

3175 5HUE S« SCREEN* 

3130 PRINT ni;a* 

3195 LET 2.6 

3190 POKE 33370,56 

3195 RETURN 

3193 

3199 !._.. 

3300 PLOT _. 

3305 PLOT OVER 1 

3310 IF INKEY«()"9" THEN AETuRl 

3315 IF ft THEN GO TO 3345 

3229 LET xl.x: LET yl«y 

3221 PLOT xl. yl 

3225 LET ft-i 

3239 INPUT "" 
3335 PRINT Bl. "OK-.TRB 23. 

3240 RETURN 
3345 DRRU Xl-X ,vi-« 
3259 LET t \ *« 
3355 IrjPUT "" 

3269 PRINT 81, *• vv i 

3365 POKE 23266,56 C > 

3379 RETURN ^w^ 

3399 

3399 RETURN REM U 

3398 

3399 rem mmmmvaMm 

3409 PLOT INUBRSl l.x.v 

3*19 plot x ,y 

3430 FOR [■) TO 10 NEXT 

3*30 RETURN 

3*99 



3509 RETURN 

3598 

3599 R«H __ 

3609 INPUT^ 

3619 PRINT al, ": 

Presscz un* tou 

3630 IF INKEY*. 



THEN GO TO 363 



3639 INPUT '-" 

364C PRINT 81, a* 

3559 LET z«6 

3669 POKE 23279.56 

3570 RETURN 

3699 

3799 RETURN REM Y 

3796 

3799 REM I 

3800 INPU 1 . 
3810 PRINT 81, '01234567 

23264,56 

3820 LET pa*9 

3839 LET p. IN 63486 

3849 IF p«175 THEN LET p«223 

3659 LET P=p-IN 6143S 

3360 IF P'2oINT (p/2> OR Pit 
R pa .9 THEN GO TO 3940 

3870 LET a>** (P»*B1 * IP«161 * \p 
) - (p»49) - iP "Bl - (P»12l 

3BB9 LET b»b* IP-121 *(P»4) up. 
- (px401 - (P«32J - (p.481 

3899 LET a«a- (*>2H *»a(0i 

3939 LET t>>b- (b >31> * tb(0) 

3910 PRINT RT a.b, PRPER 7-pa 

3920 PRINT RT a.b, PAPER Pa , " 

3939 GO TO 3830 

3940 LET apa»pa 

3959 LET pa.pa*tp.5 AND pl<9> 



3990 IF IN 61*300101 THEN GO 
3839 

*900 INPUT "'■ 

4919 PRINT 81, a* 

*930 LET z»6 

*039 POKE 33379,56 

4049 RETURN 

7996: 

7999: 



8910 PRPEtTa^ INK 6 BORDER 

£RINT RT 5,5, "BBj BBI ■■■ 

^i"t RT 6,5, "B B B B 

RT 7,6, ■ B BB BbB) 

nt; RT 0,6, III I 

. .NT RT 9,5, "BB* BB»at ■■■ 

070 PRINT RT 12,5, IN' 
anutl RICROS 1964" 
8060 RETURN 
8499 
8500 PRINT RT 21,5, INK 1, FLASH 

1; "Rppuycz sur un* touch t . " 
8519 IF tNKCY*-"" THEN GO TO 851 
9 

BBflQ 
8539 
8998 
8999 




Emm 




9979 
ORSTi 
9930 



9109 
9110 
9120 
9130 
9140 
9180 
9160 
9179 
9189 
9199 
9399 
9997 
9998 
9999 



iXYZ' 1 
LET pap. 7: 
LET inn.©: 
RCM 

RESTORE 9150 
FOP i -65344 TO 6B367 
REftD ix : POKE 
NEXT i 

DATA 33,0,64, ^ - . 
DATA 37,337, 176, 
DPTft 228, 17,0,6.- 
DATA 237,176,30 



5RUE "OESSIN" LINE 10 




Le 27 |u)l!et. un numAro 
quadruple pour le prlx de 3 
numero*. 4 programmes 
par ordlnateur, 64 pages I 
24 francs chez votre mar- 
chand de Journaux. 




Suite de la page 16 



l"?iO POKE 24, Cl POKE 25. Bi POKE 

26, At CALL 7fcfli RETURN 
1980 I 

7OO0 REM OONNEES POUR JOUCR AU 

PRES DE HA BLONDE 
2010 REM 

2020 DATA »7, 0,222, 97. 1,189.92, 
0,23*. 97, 1, 1B9, 110.0. 196, 123 
,2, 14, 123,0,175,0,0,0,123,0, 
178,82,2.14,82,1,7,73,2,79,7 
3,1,39,82,3,22,0,0,0,97,0,22 
2,97, 1,189,92.0.234,97,1,189 
,110.0, 19b 

■2<izr> DATA 123,2.14,123,0,173,0, 
0,0,123,0,175,82,2,14,82, 1,7 
,73,2,79,73. 1,39,82,3,22,0,0 



'.82,1 



73.2,^ 



',0,222,92,2,192,92,0 
.234,0,0,0,92,0,234,82,2, 14 

2040 DATA 82, 1,7, B2, 2. 14, 110,0. 
196, 97, 3. 122.0,0,0,0,0,0, 123 
,2,14, 110,0,196,97,0,222.92, 
0,234,97,2, 136,82,2,14,0,0,0 
,110, I, 134,92,0,234,97, 1, 189 
,110,0. 196. 123,1,93, 147,0,14 
6, 163,1,136 

2090 DATA 123.2,14,110,0,196.97 
,0,222,92,0,234,97,2,156,82, 
2, 14,0.0.0, I 10. I. 136,92.0,23 
4,97, 1, 189, MO, O. 196, 123,2. I 

2033 KEM 

3000 DATA N-CASSETTE.2.FACE lb/ 
Bl , l,N*COMPTCUft,3.TITRe,32.[ 
NTERFReTE, 32 

3010 c 

3019 REM 



3020 


REM EXPLICATION DE3 VARIAB 


31 40 


REM D« i CTRL-D 


3021 


LES 




3143 
3ISO 


REM E» 1 CHR4U27) 
REM EE i INDICE D'ENRt 
OISTREMENT UTILISE DANS LA n 


— 




3030 








OOIFICATION 


3040 


REH FK7 

FICMIER 


I NOM DU 


3160 


REM FF i NOM8RE D'ENRE 
OISTREMENTS DANS fV.7 


3050 


REM 


LONOUEU 


3170 


REM FL 1 TEST NODtf'ICA 




R D'ENREOISTREMENT - 73 OCIE 




TI0N7 




ra 




3190 


REM LD I LONOUEUR Dr T 


30*0 








0* 




LOCALISATION 






REM LA*(I i LETIRES OE LA 


3070 


REM 






CIIAINE A* 




TITRE 




3200 


REM LOO i LONOUEUR DES 




REM 






RUBRIOUES A ENTREft 




INTERPRETE 




3710 


REM MO* i MESSAOE D'ERR 


3090 


REM BL* t 


-.,' i 'rm.i'i 




EUR 


3100 




TEST CHOIX 0' 


3220 


REM MO* I CHAINE 'iilIMP 
DANB LA him A JOUR 


3110 


REM CM i 
Mi PRINCIPAL 


TEST CHOIX NE 


3230 


REM PA j PAS DU TRI DI 

CMOTOMIDUE 


3120 


REM CH* i 
NE 20 


DEF1NI EN LIO 


3230 


REM RU 1 NUMERO OF RUD 
RIQUE UTILISE DANG LA CONSIX. 



1700 Ml 



TAT ION 
REM TO* i CHAINE SAIBIC 
DANS LA iNT.ui i ai ni-j 
REM TI* t TITRE DE CMAP 

ITRE 

I TEST DE MODIF 

ICA1ION DF PK7 (Bl IS* I. LE 

REE CR IRE) 

rcm vl*ii i Runniotc de l 
— OE SAISIE OE mar. A J 



fXJR 



mi i MOM w; HUM,' I 
■CCRAN DE SAISIE 
•II ■ ENREOISTREMLN 



APPLE H 



LE LOGICIEL 
DE LA SEMAINE 




Le dowjt cnspo sur le bouton de 
mise a feu. vous voyez detiler 3 
bofd de voire avion ultra- rapide. 
la riviere actueilement aux 
mams de I'ennenu Vous etes le 
seul survivani de voire base et. 
vous devez rejomdre. coute que 
coute, la base amie la plus pro- 
che Crorseiirs. ballons pieges, 
helicopteres, tanks amies de 
missiles, torment un veritable ri- 
deau de feu et de fer qui vous 
cache les points de ravitaille- 
ment en carburant 
Le seul chemin aenen praticable 
(voire apparent est legerement 
endommage et vous ne pouvez 
prendre de I altitude) est letroit 
tunnel forme par les tlancs des 
montagnes entourant la riviere. 
Reflexes, nerfs d'acier et antici- 
patK>n vous seront necessaires 
pour arnver a bon port apres un 
vol en rase-motte, hallucinant... 
Le but du ieu est, bien entendu, 
de reaiiser le meilleur score en 
oetnjisant le plus d'unites enne- 
mies possible Suivant le ta- 
bleau dans lequel vous vous 
trouvez (symbolise par un tron- 
con de riviere timite par deux 
pools), bateaux, ballons. chas- 
seurs, helicopteres et tanks ap- 
paraitront et vous rapporteront 



un certain nombre de points 
apres destruction. 
Vous devez veillez. dans voire 
fohe destructrice, a ne pas 
aneantir les plate-formes de ra- 
vitaillement le carburant vous 
est compte Vous pouvez heu- 
reusement accelerer, ralentir, 
vous deplacer vers la gauche ou 
la droite aim d'eviler una colli- 
sion mortelle 

Voire score est affiche en per- 
manence, ainsi que le numero 
du tableau. 

Vous aurez fort a faire aux ni- 
veaux les plus hauls. La riviere 
se divise parlois en deux bras et 
le choix est d'autant plus difficile 
que voire decision doit etre im- 
mediate. 

Vous disposez au depart, de 
quatre appareils. Vous oblien- 
drez un appareil supplementaire 
chaque tois que vous ajouterez 
10.000 points a votre score. 
Un graphisme interessant, une 
vitesse et une maniabiiite remar- 
quables. mais un pelit d6faut, 
pourtant; River Raid peut occa- 
sionner de severes crampes au 
pouce surtout lorsque vous de- 
passez le niveau 40! 
Avant de vous lancer dans cette 
course infernale. concentrez- 



vous! 

Materiel necessaire; pas d avion, 
mais un ATARI. !e module River 
Raid et une paire de manettes 
(pour jouer a deux). 

Pierric GLAJEAN 



Les Aventures interlogiga- 
lactiques de Miche et 
Micha. 

La salle de redaction est bou- 
clee. De gros ventitateurs bras- 
sent peniblement les remugles 
de cafe el de sueur, terrains de 
taetivite febrile de !a semaine 
ecoulee. Subrepticement, deux 
petits nains s'introduisent dans 
la place. Sur leur T.Shirt, deux 
rams: Miche et Micha' 
TADAM! POM TADAM BOUM' 
Desormais, a I'abri des regards, 
puisque caches dans la cafe- 
liere, ils vont pouvoir donner 
libre cours a leur frenesie ludi- 
que et redaction nelle: 
Ils vont pirater le logiciel de la 
semaine. 

Miche et Micha 



PETITES 

ANNONCES 

GRATUITES 



VENDS ZX 81 * 16 Ko 4 Cla- 
vier mecanique ABS * 5 livres 
de ieux pour ZX 81 et Spectrum 
+ Nombreuses K7 de jeu Le 
tout 800 F. Remi LACOMBE 3 
impasse Charles Lecoq 34500 
BEZIERS. Tel: (67) 76 75 57. 

VENDS Tf994A sous garantie 
+ Unite cenlrale + prise Peritel 
+ manettes de jeux + cables 
K7 + Boite periphenque * 
Contrdleur disquette +■ lecteur 
disquettes + Extension 32 K + 
10 disquettes de jeux + Editeur 
assembleur Basic Etendu + 
Echecs + K7 initiation basic + 
disquette aide a la programma- 
tion niveau 3 + nombreuses 
revues. Prix 8500 F.Tel: 095 58 
06 (le soir). 

VENDS ZX 81 + 16K + 3 K7 + 

adaptateur graphique + 1 car- 
touche . (valeur 1900 F.) Vendu 
1200 F. Stephane REYNAUD 
Ecole publique de Verzeille 
1 1250 SAINT HILAIRE. Tel; (68) 
69 40 92. 

VENDS AQUARIUS (1/84) + 
Ext. 16K + mini EXP. + 2 poi- 
gnees + Cartouche jeu + Alim. 
et manuel. Prix a debattre. 0. 
BAUDELOT Tel: (85) 33 20 43. 

VENDS ATARI 600 XL + adap- 
tateur.: 1600 F. Monsieur LA- 
CHIVER tel: 656 52 20 poste 
2397 ou Monsieur HENAULT au 
poste 2388 

VENDS CANON X 07 (16 Ko) + 
X 710 (imprimante couleur) + 
carte memoire 4 Ko et 8 Ko 4 
livres initiation et jeux et pro- 
grammes. Vendus avec acces- 
soires et stylos. Le tout en bon 
etat : 4000 F. Tel: 846 74 25 
(apres 19H). 



HEBDOGICIEL RECRUTE 

Nous avons besoin de deux intbrmaticiens pour ren- 
forcer noire equipe L'un devra connaltre APPLE et 
le 6502 comme sa poche et ['autre connaftre encore 
mieux THOMSON et le 6809. Les dipJomes et ('ex- 
perience professtonnelle ne sont pas JodispensaWes. 
seule la connaissance du materiel et la faculte de 
bien rediger sont necessaires. L'equipe actuelte est 
jeune (moins de 25 ans). le lieu de travail a Pahs et 
le salaire attraclrf. Ecrire avec photo a Gerard CEC- 
CALDI. SHIFT EDITIONS, 27 rue du General Foy 
75008 PARIS. 



Possedant ATMOS cherche tout 
renseignement pour pouvoir le 
faire fonctionner comme un 
ORIC 1. c'est a dire, avoir a la 
fois la ROM BASIC V1-0 et la 
ROM BASIC VI - 1 Monsieur 
HUGON Le Reve Bleu, avenue 
de la Gache 13600 LA CIOTAT. 

VENDS ZX 81 + 16K + K7 (Pa- 
nique) + Livre (50 programmes) 
+ 10 hebdogiciel. (Valeurs 1200 
F. Le tout) Vendu 900 ou 700 F. 
sans extension. Charles 

ZOUAIN Cite PY. Bat 8 MON- 
TOL1VET 13012 MARSEILLE. 

VENDS TI994A + prise Peritel 
+ paire de manettes de jeu + 
magneto + programmes K7. le 
tout 1800 F, J.C. MOREL Tel: 
805 22 59 (apres 20 H). 

VENDS COMMODORE VIC 20 
SECAM (janv.84) + Extension 
8K + livres.: 2500 F CHERCHE 
COMMODORE 64. Monsieur 
GASCHET (41) 43 09 36. 

VENDS SPECTRUM 48 Ko 
UHF + Video Pal Nombreux 1o- 

giciels + litterature. Prix a de- 
battre. Michel 8IL1NSKI Tel: 631 
89 45 (heures bureau) ou (6) 
060 98 91 (le soir). 

VENDS CANON X07 16K + Im- 
primante X710 Graphique 4 cou- 
leurs Etat neuf. Le tout 2950 F. 
bernard SOULEZ 110 rue des 
Grands Champs 75020 PARIS 
Tel: 373 70 24 



VENDS TI994A (1282) bon 
etat * magneot K7 4 Bbsk 
Etendu avec K7 basic ET par 
sot-meme + Mini -memoire avec 
manuel assembleur SHIFT ED 
■* Echoes f othello » Aide a la 
programmation t manettes de 
jeu + revues. Irvres et tres rom- 
reux programmes sur K7 (mo- 
dule sous garantie) prix 4000 
F? a debattre. Danwl GRAND 3 
bis rue Docteur Calmette 38000 
GRENOBLE. 

ACHETE Impnmante occasion 
DIGITAL LA 100 ou autre ouali- 
tes equivalentes pour Rainbow 
100. Tel: 203 79 26 (le soir) 
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ACCESSC4RES Tl <M/4 

I CAM K.X 
»A>*jUli!tir i£CAM GM 

C.'iWp tuinon rrugn^io<^iuntK 

M*qnelo<anrim compatible T I 
IANSAY avec compwjr 
♦ (Jlble maqnfrlo Comprri 

•(■BOGnAMMATtON SUW DISOUEnCS 

•■ ' rjmpdM 
■ 
•UCIO Rnt-tl I flrtoi 



i MOM 




6O0XW 


i 


60000 


rj 


WOM 




4IS.0O 




JOWXJ 




■ 





]"'!• < 



■ 

■M..rr«vr,." ■ 

" MJOOrt 



j ioo.00 



■ 

252,00 



TlJOGIfAMMAno^™^^™" 

•''■■ 4 

niOGOi 

. ■ . ■ 



aUGAM%AUOU 

■ ■ 
.... ■ . j . 

■ ipports 

.... 
ri iAk 
OnbanptivM 

MODULES (OUCAIJCNM 

■ 



■ I , 
M«f*>r inn 

MuDptcaoonl 

MODULES LOISjm 



■ ■ 


n 


1 




■ 




'■ 




360.00 




360,00 




147,00 


n 


147,00 


ii 


I4 7.OT 


[i 


I4/.00 


D 


14 7.00 


■ i 


14/00 




147.00 


I 1 


20UW 


i) 


147.00 

152,00 


•i 



LA REGLE A CALCUL 

sort une extension memoire 32 K exterieure pour la console Tl 99/4. 

Avec 48 K ram, vous allez realiserdes programmes plus performants, 

utiliser le logo II (en francais), 

outil indispensable a I'eveil informatlque des eleves. 




Texas Instruments 



206,00 




252.00 


l 1 


147.00 


1 1 


206,00 


1 1 


147,00 


il 


147.00 


1 1 


147,00 


l 1 


14 7,00 


i l 


147.00 


11 



HfBpOGKHU SOFTWARE 

UN" i Bmc Wnp!eK7 ^J tr,i> 
tlbflttak tcendu (2ieuii 



MODULES ROMOX 



150,00 

i moo 
w.oo 



390,00 




390,00 


■ 


390.00 




■ 





rVOUVEAUX LOCJCIELS TEXAS 

■ 
■ ■■. I 



PROGRAMMES MAfiNAim 



252,00 




^57.00 




■ 




?S7.00 





■ 






M.T UKt 








252.1 




. ■ . ■ 


7S2.00 


: . 


bland 







womirMUNWAin: 

1 1 lemon 

■ 

im H NKk 



■ 




■ 




. 








■ 





<\ PGCD - 'VCM 



PROGRAMMES vin NATHAN ; 

drone man ■ 

Comp r\ rrmti 
MoHcionAvnl I 

'.' ■ ■ 



PROGRAMMES COU INS/TEXAS : 

MM mi H99/4 |l| 
hood to tIW/4 U\ 

li",lnl«.i,,i' 
dtjtUMfl] 

ir-, inimiijiir-, iif. prooranvna 
d» J«ux p) 

• mn lauf) d« fabrk't Ion 



170.00 


n 


115.00 


n 


I75.O0 


1 1 


I2$,00 


it 



75.00 


n 


.-.,,,■, 


i : 


/'>,00 


:: 


75.00 


I i 



NOUVEAU 

MODULES ATARI pour console Tt 99/4A 

PAC MAN - JUNGLE HUNT 

MOON PATROL - DEFENDER 

Ai.iri-.ott au service de Texas 

Le modulo : 350 F TTC. 




■■•■■<■■■■■ -.-I 

. ■ ■ 
■ 

Mooniweptr: 

i hi f.iii.,1,',,1 |,.,, ,j ir, ...!,.■, ,, | ,1. „!,.,, M . BnorMc uiour dt 



Promotion vacancci : 
Pour l-tcti.it ii'un module 6dlt6 
par Texas, M est offert un 
programme Collins au choix : 
Introduction au Tl 99/4 ( 1 ) 
Introduction au Tl 99/4 (2| 
Les techniques des 
programmes de Jeux ( I ) 
Les Techniques des 
programmes de Jeux |2| 
le basic par sol-meme. 



BON DE COMMANDS 

TARIFS AU 20/7/1984 






MrupntM 

I'IimIhiI'. ,li', Iikv ,l.,r,', P,i In 1, 

■ I ' ■ 

ftroopm < trm ttt pon k ft 

nconmundtpoui taJOflwrti • 101 

I AMI ill A< All III 

6S/6?.MS*H Genu 7SO0SPAJBS 

Trt MSMIM III, ■ 



